Информатика, составить алгоритм вычисления приметра и плошади прямоугольного треугольника по длинам 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.