В условии задачи сказано, что нельзя использовать IF и Циклы(while, for и тд).
Поэтому задача сводится к округлению.
Код программы на языке Паскаль:
var n,m:integer;
begin
writeln('Введите скорость машины (n)');
readln(n);
writeln('Введите длину маршрута (m)');
readln(m);
writeln(round(m / n + 0.499));
end.