составить блок схему и программу площади квадратов со стороной, меняющейся от 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.