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

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.