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

var    a, b: real;begin    readln(a, b);    writeln('P = ', a + b + sqrt(a * a + b * b));    writeln('S = ', 0.5 * a * b);end.

П0 <-> П1 x^2 <-> x^2 + КвКор ИП0 + ИП1 + С/П ИП0 ИП1 * 2 / С/П