Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см,а число претендентов n=50. сделать программу на языке Паскаля
Ребят,срочно.оценка за четверть решается

program basket;constn:=50;vari, pl : integer;hig: array [1..50] of integer;beginfor i:= 1 to n dobeginhig[i]:= random(51)+150;writeln('Рост ', i, '-го игрока - ', hig[i]);if hig[i]>=170 then pl:=pl+1end;writeln(pl, ' претендентов.')end.