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