Включение на дополнительной клавиатуре режима работы с цифрами

Num lock вот если что посмотрю ещё ответы

Кнопка называется: scroll lock.

Program ar; var a: array [1..3] of array [1..4] of integer;       i, j, min, sum: integer; begin   for i: =1 to 3 do       for j: =1 to 4 do           read(a[i][j]);   for i: =1 to 3 do       for j: =1 to 4 do           if a[i][j] > 10 then write(a[i][j], ' ');   writeln;   min: =a[2][1];     for j: =1 to 4 do       if a[2][j] < min then min: =a[2][j];   writeln(min);   for i: =1 to 3 do       begin       sum: =0;       for j: =1 to 4 do           sum: =sum + a[i][j];       write(sum, ' ');       end; end.

// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! procedure rvr(var n,nr: biginteger); begin   if n< > 0 then begin       nr: =nr*10+ n mod 10;       n: =n div 10;       rvr(n,nr)       end end; begin     var nr: =biginteger(0);   var n: =readlnstring('введите натуральное число: ').tobiginteger;   rvr(n,nr);   writeln(nr) end. пример введите натуральное число: 234536406567867348292735385468776123478182736 637281874321677864583537292843768765604635432