Дорогие друзья! Помогите решить задачу в Paskal
Пользователь вводит две стороны трех прямоугольников вывести их площадь

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