Паскаль вывести столбиком числа от 4,4 до 6,4 с шагом 0,2

Program n1;
var i: real;
begin
i:=4.4;
writeln(i);
while i<=6.4 do
begin
i:=i+0.2;
writeln(i);
end;
end.

Program prog;
var a:real;

begin
a:=4.4;
while(a<=6.4) do
begin
writeln(a);
a:=a+0.2;
end;
end.