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

Var

a, b, c, p, s : real;

Begin

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

read (a) ;

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

read (b) ;

s: = (a*b) / 2;

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

c:=sqrt (sqr (a) + sqr (b)) ;

p: = a + b + c;

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

end.