Создать массив a из десяти целых чисел, принадлежащих промежутку [0; 25 вывести полученный массив на экран. подсчитать k - количество элементов массива, значение которых превышает 12

Program n_2; const n=10;           m=12; type mas = array [1..n]; var a: mas; i, k: integer; beginrandomize; k: =0; for i: =1 to n do     begin        a[i]: =round(random(25));       {задаем массив при датчика сч}          if a[i]> m then k: =k=1;     end; writeln('k=', k); readln; end.

//pascal abc.net v3.1 сборка 1172 var   k: integer;   se: set of char;   s: string;   num: set of '0'..'9'; begin readln(s);   num: =['0'..'9'];   while s< > '' do   begin     if (not(s[length(s)] in se)) and (s[length(s)] in num) then     begin       inc(k);       se: =se+[s[length(s)]];     end;     delete(s,length(s),1);   end;   writeln(k); end. пример ввода: 234мне нужно делать , что я тут забыл? 121 пример вывода: 4

Var a: array[1..100,1..100] of integer;                                     n,m,i,j,min,kmin: integer; begin readln(n,m); min: =10000; kmin: =0;       for i: =1 to n do begin               writeln();                   for j: =1 to m do begin                            a[i,j]: =random(50);                   write(a[i,j],'   ');                           if min = a[i,j] then                               kmin: =kmin+1                            else if min > a[i,j] then begin                                           kmin: =1; min: =a[i,j];                               end;                     end;       end; writeln(); write(min,' ',kmin); readln(); end.