Составить программу решения в паскале авс. дано вещественное число - цена 1 кг конфет. вывести стоимость 0.1,0. конфет

Var C, i: real;
begin
     readln(C); 
     i := 0.1;
     while (i <= 1) do
     begin
          writeln(C * i);
          i := i + 0.1;
     end;
end.

Уже решал, но теперь по-другому)