Помогите с задачей
Вывести таблицу квадратов чисел от 0 до 2 с шагом 0,2. (Pascal)

var i:real;

begin

  i:=0;

  while i<=2 do

  begin

     writeln(i:4,'*',i,'=',i*i);

     i:=i+0.2;

  end;

end.