Сделать массив a из 10 целых чисел, принадлежащих интервалу [0;25). вывести

program myprg; uses crt; var a: array[1..10] of integer; i: integer; k: integer; begin randomize; for i := 1 to 10 do begin a[i] := random(25); end; k := 0; for i := 1 to 10 do begin writeln( i, -й элемент массива равен , a[i]); if k gt; 12 then k := k+1; end; writeln( количество частей больше 12 одинаково , k); end. Строчка "uses crt;" подключает библиотеку, в которой описаны функция "random()" и процедура "randomize". Функция "random(25)" отдаёт случайное число от 0 до 24 включительно. В первом цикле " for i := 1 to 10 do" идет наполнения массива "a[]" случайными числами от 0 до 24. Во второмцикле " for i := 1 to 10 do" значения массива "a[]" выводится на экран и подсчитывается количество частей, значения которых больше 12, глядите строчку " if k gt; 12 then k := k+1;"