Дано вещественное число – цена 1кг конфет. Вывести стоимость 0.1, 0.2, … , 1кг. Входные данные: ввести одно вещественное число A (1

Var a, i: real;
begin
     readln(a);
     while (i      begin
         i := i + 0.1;
         writeln(i, kg -> , i * a:4:4, y.e.);
     end;
end.

:))