Вводится рост опр. Кол-ва учеников в баскетбольную команду принимаются > 180 сколько учеников примут в команду и напишите коментарий к ним и делать в паскале

Var rost : array[1 ... 100] of integer;

n, i, k: integer;

begin

writeln ('Введите общее количество участников');

readln (n);

for i:=1 to n do

read (rost[i]);

for i:=1 to n do

if (rost[i] >=180) then Inc (k);

writeln (k);

end.

Пример входных данных

3

179 180 194

Выходные данные

2