Pascal. Задача 1-1

var
  a, b : double;
begin
  write('Введите длину первой стороны прямоугольника? ');
  read(a);
  write('Введите длину второй стороны прямоугольника? ');
  readln(b);
  write('Площадь прямоугольника равна ', a*b);
end.