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

Using system; public class mainclass {       public static void main()       {               console.write("введите количество элементов массива: ");               int size = convert.toint32(console.;               int[] a = new int[size];               for (int i = 0; i < size; i++) {                       console.write($"[{i}] = ");                       a[i] = convert.toint32(console.;               }               int prev = a[0];               for (int i = 1; i < size; i++) {                       if (a[i] < = prev) {                               console.writeline("последовательность не возрастающая");                               return;                       } else {                               prev = a[1];                       }               }               console.writeline("последовательность возрастающая");               return;       } }