Вычислить стоимость порций сыра весом 50,100,150 и тд до 950гр если цена одного кг =a руб паскаль

var
  a, i: integer;

begin
  readln(a);
  i := 50;
  while (i <= 950) do
  begin
    writeln(String.Format('{0} гр. сыра стоит {1} руб.', i, a / 1000 * i));
    i += 50;
  end;
end.