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

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.