Вводится рост опр. Кол-ва учеников в баскетбольную команду принимаются больше 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