Написать программу Паскаль. Задача

 program prog5;
var a, b, S, P: real;
begin
  write('a b: ');
  readln(a, b);
  S := 0.5 * a * b;
  P := a + b + sqrt(a*a + b*b);
  writeln('Площадь: ', S);
  writeln('Периметр: ', P)
end.