Команды не входящие в систему команд человека?

Так как я понял. мы не вычислительная техника и поэтому мы не можем выполнять больше 2 сложных дел. 

Var   i,k,n1,n2: integer; begin   n1: =0; n2: =0;   write('введите 5 натуральных чисел: ');   for i: =1 to 5 do begin       read(k);       if k mod 2< > 0 then inc(n1);       if (k mod 3=0) and (k mod 5< > 0) then inc(n2)       end;   writeln('нечетных- ',n1,', кратных 3 и не кратных 5- ',n2) end. пример введите 5 натуральных чисел: 11 8 33 15 27 нечетных- 4, кратных 3 и не кратных 5- 2

// pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! №1 begin   var s: =arrrandom(readinteger('k='),1,50); s.println;   var min: =s.min;   s.transform(x-> x-min); s.println end. пример k= 13 41 31 28 2 50 46 7 31 40 30 13 8 26 39 29 26 0 48 44 5 29 38 28 11 6 24 №2begin   var m: =readinteger('количество строк в матрице: ');   var k: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',m,',',k,'] ***');   var a: =matrrandom(m,k,-99,99);   a.println(4); writeln(4*a.colcount*'-');   writeln('первые положительные элементы в строках');   a.rows.select(r-> r.where(x-> x> 0).take((x-> x).println end. пример количество строк в матрице: 5 количество столбцов в матрице: 8 *** исходная матрица [5,8] ***   -91 -83 -26    4 -40  33 -40  -6   71 -87  -8  65  94 -19  59  -9   -91 -17  69  32  30  90  63    4   -53 -52  93    4 -34 -70 -75 -95   -99 -42  95  69 -70 -62  39 -22 первые положительные элементы в строках 4 71 69 93 95