Запишите на языке Паскаль программу для решения задачи. 
"Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть команду, если рост игрока команды должен быть не менее 170 см". Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см,а число претендентов n=5. Заранее спасибо:)

Const  N=5;Var  Rost:array[0..N] of real;  Team,i:integer;   st:string;begin  Team:=0;  for i:=1 to N do    begin      st:='не может быть ';      Rost[i]:=150+random(51);      if (Rost[i]>=170) then        begin          Team:=Team+1;          st:='';        end;      writeln('Претендент ',i,' (рост: ',Rost[i],') ',st,'зачислен в команду' );     end;  writeln('Всего в команду зачислено: ',Team);end.