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

Uses crt;
const
           n=50;
var
         a:array[1..n] of integer;
         i,s:integer;
begin
          randomize;
          for i:=1 to n do
                begin
                      a[i]:=150+random(50);
                 if a[i]>=170 then s:=s+1
                end;
          writeln(s);
end.