begin
  var priceKg := ReadReal('Введите цену 1 кг конфет: ');
  for var i := 1 to 10 do
    Writeln(Format('{0} кг конфет стоит {1} р.;', i/10, priceKg * i/10));    
end.