Напишите программу вычисления площади и гипотенузы прямоугольного…

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.