Создать массив a из десяти целых чисел, принадлежащих промежутку [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 > 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 > 12 then k := k+1;\"