Множества раздел информатики кто должен жить в первом домике​

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) const   m = 10; var   t: array[1..m] of integer;   i, n, nm, sm: integer; begin   //заполняем массив сл.числами и подсчитываем   //количество элементов и среднее арифметическое   //согласно условию   for i : = 1 to m do   begin       t[i] : = random(-20, 20); write(t[i]: 4);       if (i > 1) and (i < = m) then           if t[i] > t[i - 1] then n : = n + 1           else if t[i] < t[i - 1] then begin               sm : = sm + t[i]; nm : = nm + 1;           end;   end;   writeln;   writeln('число элементов больших предыдущего = ', n);   writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm);     end. тестовое решение:       6  13  19    8 -19 -11 -20 -15 -19 -13 число элементов, больших предыдущего = 5 среднее арифметическое элементов, меньших предыдущего = -12.5

//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var a,i,n,n3: integer; begin       writeln('введите количество чисел'); readln(n);       for i: =1 to n do begin           readln(a);           if (a> 99) and (a< 1000) then n3: =n3+1;       end;       writeln('всего трехзначных чисел : ',n3); end. тестовое решение: введите количество чисел 5 22 123 4 435 12 всего трехзначных чисел : 2