// PascalABC.Net
procedure RectangleSquare;
var
a,b:double;
begin
Write('Введите через пробел длины сторон прямоугольника: '); Read(a,b);
Writeln('Площадь прямоугоьника равна ',a*b)
end;
var
i:byte;
begin
for i:=1 to 3 do RectangleSquare
end.
Тестовое решение:
Введите через пробел длины сторон прямоугольника: 3 7
Площадь прямоугоьника равна 21
Введите через пробел длины сторон прямоугольника: 12.4 15.8
Площадь прямоугоьника равна 195.92
Введите через пробел длины сторон прямоугольника: 14 12.5
Площадь прямоугоьника равна 175