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

Var

a, b, c, S: real;

begin

write ('Введите длину 1 катета: ') ;

readln (a) ;

write ('Введите длину 2 катета: ') ;

readln (b) ;

c : = Sqrt (Sqr (a) + Sqr (b)) ;

S : = 0.5 * a * b;

writeln ('Гипотенуза треугольника = ', c) ;

writeln ('Площадь треугольника = ', S) ;

readln;

end.