Определить площадь прямоугольника с высотой 4 см с основанием меняющимся от 3 до 6 см с шагом 2 мм

var
  a: real;
  i: byte := 30;

begin
  while (i <= 60) do
  begin
    writeln('S = 0.5 * 4см * ', i / 10, 'см = ', 0.2 * i, 'см^2');
    i += 2;
  end;
end.