Даю 99 баллов!!Известны сведения о росте юношей-старшеклассников.Определить количество кандидатов в сборную школу по баскетболу,если туда набирают участников не менее 170см.
Помогите с информатикой!Даю 99 баллов!Язык Паскаль.

Спасибо большое!

Пожалуйста.

const n=20; var a:array[1..n] of integer;i,k:integer; beginRandomize;writeln('Массив A:');for i:=1 to n do begin a[i]:=random(51)+140; write(a[i]:4); end;writeln;k:=0;for i:=1 to n do if a[i]>=170 then k:=k+1;writeln('k = ',k);end.Пример:Массив A:156 147 168 157 178 188 141 150 148 185 188 154 153 188 159 177 162 177 174 142k = 8