Определить кол-во человек. Помогите

[Crish]

В помещении N человек. Определить кол-во человек, возраст которых не превышает 20 лет. Задачу нужно решить тремя типами я точно не помню какими, что то типа While For и Repeat. Помогите пжл.

[sheka]

1.kol:=0; for i:=1 to n do if a[i]<=20 then inc(kol);
2.kol:=0; i:=1; while i<=n do begin if a[i]<=20 then inc(kol); inc(i); end;
2.kol:=0; i:=1; repeat if a[i]<=20 then inc(kol); inc(i); until i>n;