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

Program train;

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

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

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