Дано вещественное число – цена 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.:))