Дано вещественное число – цена 1кг конфет. вывести стоимость 0.1, 0.2, … , 1кг. входные данные: ввести одно вещественное число a (1< =a< =100). выходные данные: вывести стоимость 0.1, 0.2, … , 1кг конфет с точностью до 4 цифр в дробной части.

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

:))