Рассчитать площадь прямоугольника- Pascal(Паскаль)

program SquareRectangle; { вычисление площади прямоугольника }

uses WinCrt;

var

  a, b, s: real;

begin

  write('Введите высоту: ');

  readln(a);

  write('Введите ширину: ');

  readln(b);

  s := a * b;

  writeln('Площадь равна: ', s:5:2);

end.