Обчислити периметр і площу прямокутного трукутника за заданими катетами. В PascalABC.NET

var    a, b, c, P, S : real;begin   write('Введите первый катет: ');   readln(a);   write('Введите второй катет: ');   readln(b);   S := (a * b) / 2;   writeln('Площадь треугольника = ', S:2:2);   c := sqrt(sqr(a)+sqr(b));   P := a + b + c;   writeln('Периметр треугольника = ', P:2:2);  end.