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

program train;varx, 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