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

var p, s, a, b : real;begin  writeln ('Введите - А');  readln (a);  writeln ('Введите - Б');  readln (b);    p:=Sqrt(a*a+b*b)+a+b;  s:=a*b/2;  writeln ('Периметр - '+p);  writeln ('Площадь - '+s);end.