Напишите программу для вычисления периметра и площади прямоугольного треугольника по заданным длинам двух катетов a и b.

Program sq;

var a, b, p, s, s2 : real;

begin

Writeln ('введите первый катет');

Read (a);

Writeln ('введите второй катет');

Read (b);

s: = (a*b) / 2;

Writeln ('площадь - ', s);

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

p:=a+b+s2;

Writeln ('периметр - ', p);

end.