Напишите программу вычисления площади и гипотенузы прямоугольного треугольника ,если известны его катеты. нужно оформить эту программу в виде подпрограммы функция! : )

program n1; uses crt; var a,b,c,gip: real; function s(x,y: real): real; begins: =x*y/2; end; function g(x,y: real): real; beging: =sqrt(sqr(x)+sqr(y))end; beginwriteln('vvedite katety'); readln(a,b); c: =s(a,b); gip: =g(a,b); writeln('ploshad = ',c: 3: 2); writeln('gipotenuza = ',gip: 3: 2); readlnend.

var r,l,s: real; beginwrite('r='); read(r); s: =pi*sqr(r); l: =2*pi*r; write('s=',s,'; l=',l); end.

var a,p: integer; beginread(a); p: =(a mod 10)*(a div 100)*(a mod 100 div 10); write(p); end.

var a,b,c,min: integer; beginwriteln('введи 3 числа'); readln(a,b,c); min: =a; if b< min then min: =b; if c< min then min: =c; writeln(3*min: 4); readln; end.

program summa;

var s, a, b, c : word;

begin

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s: =a+b+c;

            write(' сумма равна ',s);

            readln

end.