Объявлен набор в школьную баскетбольную команду. известен рост каждого из n учеников, желающих попасть в эту команду. составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см.

Var i,n,hi,kol:integer;

begin
kol:=0;
for i:=1 to n do  //Задаем цикл 
 begin
 readln(hi);  //Вбиваем рост претендента
 if hi>=170 then  //Проверяем, соответствует ли его рост условию
  kol:=kol+1; //Счетчик кол-ва подходящих под условие претендентов
 end;
end.