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

const n=10;var a:array[1..n] of integer;i,k:integer;beginrandomize;k:=0;for i:=1 to n do begina[i]:=random(25);if a[i]>12 then k:=k+1;end;for i:=1 to n do beginwrite(a[i]); write(' '); end;writeln(k); end.