Написать программу на языке Paskal. Сторона а первого прямоугольника равна 4 м, а сторона b — 7 м. У каждого следующего прямоугольника сторона а увеличивается на 1 м, а сторона b — неизменная. Определить площадь 15 прямоугольников.

Составляли програму по похожей задачке на вычисление площади круга, но не получается. Во первых, какие цифры писать в строке writeln ('S=',S:?:?) (для круга надо S:4:2). Второе: не пропускает строку a:=a+1; в окне вывода: нельзя изменять значение переменной цикла. А как тогда задать, что сторона меняется.
Исправьте ошибки и объясните, пожалуйста.

Program E6;
var a,b:integer;
S:real;
begin
a:=4;
b:=7;
for a:=1 to 15 do
begin
S:=a*b;
writeln ('S=',S:?:?); - здесь не знаю, какие цифры писать
a:=a+1; - "в окне вывода: нельзя изменять значение переменной цикла"
end;
readln;
end.