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

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