Question

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

Answer 1

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.

:))