Дано вещественное число — цена 1 кг конфет. вывести стоимость 0.1, 0.2, … , 1 кг

Var
i,s:real;
begin
writeln('Введите стоимость');
readln(s);
i:=0.1;
while i<=1 do
begin
writeln(i*s);
i:=i+0.1;
end;end.