Автор - WineJath
Program candies;
var
i:integer;
c,d,m: real;
begin
write('Введите стоимость 1 кг конфет:');
readln(c);
d:=0.1;
for i:=1 to 10 do
begin
m := d*c;
writeln('Стоимость ',d,' кг конфет = ', m);
d:= d+0.1;
end;
end.