Напечатать таблицу стоимости 50, 100, 150, .., , 1000 г сыра (null, стоимость 1 кг сыра вводится с клавиатуры) — Pascal(Паскаль)

var
  kilo, i: real;

begin
  i := 0.05;
  write('Vvedite stoimost odnogo kilo:');
  readln(kilo);
  j := 0.05;
  for i := 1 to 20 do
  begin
    writeln('Ves ', j * 1000:3:0, ' gramm = ', j * kilo:5:2);
    j := j + 0.05;
  end;
end;
readln;

end.