Составить блок схему и программу площади квадратов со стороной, меняющейся от 2 до 4 см с шагом на 3 мм.

Var a: real;
    i: integer;
begin
     a := 2;
     while (a <= 4) do
     begin
          writeln(a, 'cm => ', a * a, 'cm2');
          a := a + 0.3;
     end;
end.