Ребят, подкорректируйте решение Var n,m,t,k,f:integer;
begin
readln(n,m);
k:=n mod 10000;
f:=m mod 10000;
t:= ((f-1) div k)+1;
writeln(t);
end.
Нужно чтоб на вход n и m были не больше 10000

В программе никаких ошибок нету, если надо, то ниже я добавил в программу код, который проверяет, чтобы значение переменных m и n были не больше 1000:

Var n,m,t,k,f:integer;

begin

readln(n,m);

if (n > 1000) or (m > 1000) then

 writeln('Ошибка. Значение n и m должны быть не больше 1000')

else begin

k:=n mod 10000;

f:=m mod 10000;

t:= ((f-1) div k)+1;

writeln(t);

end;

end.