Лабораторная работа №8 Функции Вариант 7 Pascal

Задание 1. Дано условие задачи и программа, ее решающая. Предложить набор тестов для проверки работоспособности программы
Вариант 7. Составить программу, которая вычисляет площади трех кругов по значениям радиусов и определяет равные. Для вычисления площади круга использовать функцию.
Program PL;
Var r1,r2,r3: real;
function kol(a:real):real;
var s:real;
begin
s:=Pi*a*a;
kol:=s;    
end;
begin
writeln(' Введите три  радиуса окружности');
readln(r1,r2,r3);
 if kol(r1)= kol(r2) then writeln('площади первого и второго круга равны');
 if kol(r1)= kol(r3) then writeln('площади первого и третьего круга равны');
 if kol(r2)= kol(r3) then writeln('площади второго и третьего круга равны');
  end.
Задание 2. Дана программа, содержащая синтаксические и алгоритмические ошибки. Исправить их. Представить правильный вариант программы и проверить его тестами
Задание 3. Решить задачу.
Вариант 7. Даны два четырехзначных числа. Определить, сумма цифр которого из них больше. Подсчет суммы цифр организовать через функцию.
Задание 4. Решить задачу.
Вариант 7. Проводится конкурс для студентов. Сумма приза зависит от  некоторой минимальной величины (MP), которая определяется величиной призового фонда (PF), который вводится с клавиатуры и  порядковым номером тура N (всего 4 тура),  которого достиг студент в конкурсе. Вычислить размер приза для каждого тура, если  MP=PF/10*0,25, величина приза определяется формулой: P= N*MP, где  N меняется от 1 до 4.Определить MP  в виде функции.