С поддержкою гениратора случайных чисел получить 12 чисел из диапозона от

FPC IDE 2.6.0.

Только тут какой-то китайский рандом, и числа больше 8 только 6 выдает, но инспектировал алгоритм работает верно.

 var a:array[1..12] of integer; i,k:integer;


begin k:=0;
for i:=1 to 12 do
begin
a[i]:=random(8);
if a[i]gt;5 then inc(k);
end;

writeln('Kol-vo chisel bolsih za 5: ',k);
for i:=1 to 12 do
if a[i]gt;5 then writeln(a[i]);
readln;
end.