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

Предыдущий
вопрос Следующий
вопрос

program PerimeterAndArea;

var
a, b, c, P, S: real;

begin
write('Enter the length of the first cathetus (a): ');
readln(a);

write('Enter the length of the second cathetus (b): ');
readln(b);

c := sqrt(aa + bb);
P := a + b + c;
S := 0.5 a b;

writeln('Perimeter = ', P:0:2);
writeln('Area = ', S:0:2);
end.