Вычислить стоимость порций сыра весом 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.