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

Program train;

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

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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.