Помогите подалуйста!

нужно написать алгоритм следующих 2 заданий на языке Паскаля

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

2 Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь

Var a, b, c, d, f:integer;

begin

writeln ('Введите 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;

begin

writeln ('Введите катеты') ;

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.