Вопрос, который вызвал трудности

Объявлен набор в школьную баскетбольную команду. Известен рост каждого из n-учеников, кто хочет туда попасть. Составьте алг подсчета кол-ва претендентов, если рост должен быть не менее 170 см (Паскаль, цикл пока)

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Program z1;
var n:integer;
i:integer;
r:integer;
begin
writeln('Введите количество желающих');
readln(n);
i:=0;
r:=0;
while(n>0) do
begin
writeln('Введите рост ученика : ');
readln(r);
if(r>170) then i:=i+1;
n:=n-1;
end;
writeln(i);
end.