№1: Даны 4 числа найти их сред. арифмет. и сред. геомет. №2: Даны 2 числа найти сред. ариф кубов этих чисел , сред.геом ,модуль этих чисел №3: Найти площадь и периметр площади прямоугольного треугольника.

Задача №1   var a,b,x,z,sra,srg:real;  begin  writeln('Введите 4 числа');  read(a,b,x,z);  sra:=(a+b+x+z)/4;  srg:=power(a*b*x*z, 1/4);  writeln('Среднее арифметическое этих чисел =',sra);  writeln('Среднее геометрическое этих числе =',srg);  end.  Задача №2 var a,b,sra,srg:real;  begin  writeln('Введите 2 числа');  read(a,b);  sra:=(a+b)/2;  srg:=power(a*b, 1/2);  writeln('Среднее арифметическое этих чисел =',sra);  writeln('Среднее геометрическое этих числе =',srg);  writeln('Модули этих чисел a=',abs(a), ' b=',abs(b))  end. Задача №3 var a,b,c:real;  begin  writeln('Введите длину катетов и гипотенузы соотвественно');  read(a,b,c);  if a=0 then a:=sqrt(sqr(c)-sqr(b));  if b=0 then b:=sqrt(sqr(c)-sqr(a));  if c=0 then c:=sqrt(sqr(a)+sqr(b));  writeln('Площадь треугольника =',a*b*0.5);  writeln('Периметр треугольника =',a+b+c);  end.