Question

помогите решить в pascal.
дано вещественное число-цена 1кг конфет. вывести стоимость 1.2, 1.4, ...2 кг конфет

Answer 1

var i:integer;
price:real;
Begin
  read(price);
  for i := 6 to 10 do
   writeln(i/5, 'kg = ', price*i/5);
End.