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

Задание 1. Дано условие задачи и программа, ее решающая. Предложить набор тестов для проверки работоспособности программы
Вариант 6. Составить программу, которая вычисляет площади двух кругов по значениям радиусов. Для вычисления площади круга использовать функцию.
Program PL;
Var r1,r2: real;
function kol(a:real):real;
var s:real;
begin
s:=Pi*a*a;
kol:=s;    
end;
begin
writeln(' Введите два  радиуса окружности');
readln(r1,r2);
 write(kol(r1),’   ‘,kol(r2));
   end.
Задание 2. Дана программа, содержащая синтаксические и алгоритмические ошибки. Исправить их. Представить правильный вариант программы и проверить его тестами.
Вариант 6.
Program sig;
Var I: integer;
     x,y,z: integer;
function sign(a:real):real; 
var s:real;
begin
if a>0 then s:=sqr(a)+ 5*a;
if a<0 then s:=1;
if a=0 then s:=12;
 sign:=s;  
  end;
begin
writeln(' Введите числа x,y');
readln(x,y);
for i:=1 To 5 Do
 begin
    z:= i*(sig(x)+ sign(a));
    writeln('z= ',z);
end;
end.
Задание 3. Решить задачу.
Вариант 6.  Рассчитать значение x, определив и использовав необходимую функцию:
Задание 4. Решить задачу.
Вариант 6. Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше. Определить функцию для расчета суммы цифр натурального числа.
Все задания решены на Pascal