Паскаль. "циклы с условием" организуйте числовой ряд 3,2; 3,4; 3,6; 3,8; 4; 4,2; 4,4; 4,6; 4,8

Var a:real;
begin
a:=3.0;
while a<4.8 do
 begin
 a:=a+0.2;
 write(a:5:1);
 end;
writeln;
end.

Результат:
  3.2  3.4  3.6  3.8  4.0  4.2  4.4  4.6  4.8