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

// 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