Вычислить периметр и площадь прямоугольного треугольника по заданным длина двух катетов 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 / С/П