Помогите подалуйста!
нужно написать алгоритм следующих 2 заданий на языке Паскаля
1. Даны два действительных положительных числа. Найдите среднее арифметическое, суму, разность и произведение этих чисел.
2 Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь

Вторую щас добавлю

А где среднее арифметическое и площадь треугольника?

var a,b,c,d,f:integer;beginwriteln('Введите 2 числа');read(a,b);c:=a+b;d:=a-b;f:=a*b;k:=((a+b)/2);writeln('Сумма равна ',c);writeln('Разность равна ',d);writeln('Среднее арифметическое равно ',k:0:2);writeln('Произведение равно ',f);end.var a,b:integer;c:real;beginwriteln('Введите катеты');read(a,b);c:=sqrt(sqr(a)+sqr(b));s:=a*b/2;writeln('Площадь равна ',s);writeln('Гипотенуза равна ',c:12:2);//12 число знаков перед запятой, 2- число знаков после запятойend.

1) program numOp;  var a,b:longint; begin   write('a='); readln(a);  write('b='); readln(b); writeln;  writeln('Среднее арифметическое: ',((a+b)/2):0:2);  writeln('Сумма: ',a+b);  writeln('Разность: ',a-b);  writeln('Произведение: ',a*b); readln; end.2) program triangleInf;  var   kat1,kat2:longint;   gip,s:real;  begin   write('Катет1: '); readln(kat1);   write('Катет2: '); readln(kat2);   gip:=sqrt(sqr(kat1)+sqr(kat2)); s:=kat1*kat2/2;   writeln('Гипотенуза: ',gip:0:2);   writeln('Площадь: ',s:0:2); readln;  end.