НАПИШИТЕ ПРОГРАММУ (ПАСКАЛЬ). Задача подсчитать кол-во учеников, из 12 человек, кто за контрольную работу работу получил 5

Program znanija;
var
a,b,c:integer; znanijacom:array [1..12] of integer;
Begin
a:=12;
for b:=1 to 12 do begin
znanijacom[b]:=random(5+1);
if znanijacom[b]=5 then c:=c+1;
End;
writeln(5 получили ,c, человек);
End.