Язык програмирования paskal/ : дано действительное число - цена 1 кг конфет вывести стои 1.2, 1.4 2 кг конфет

    program for4;
     
    var
      i: integer;
      price_one: real;
     
    begin
      read(price_one);
      for i := 1 to 10 do writeln(i, ' кг. стоит - ', price_one * i, ' ');
    end.