В один вагон входит х тонн .составьте программу которая подсчитывает количество вагонов необходимо для перевозки у тонн зерна

program train;

var
x, y, col: integer;
begin
  writeln('введите вместимость вагона, тонн ');
  readln(x);
  writeln('введите количество зерна для перевозки, тонн');
  readln(y);
  col:=y div x;
  if (x*col)<y then
    Inc(col);
  writeln('количество требуемых вагонов  ', col);
end.

Тест
Введите вместимость вагона, тонн 3
Введите количество зерна для перевозки, тонн 10

Количество требуемых вагонов 4