ребят, подкорректируйте решение 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

В программе никаких ошибок нету, если надо, то ниже я добавил в программу код, который проверяет, чтобы значение переменныхи были не больше 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.