Объявлен набор в школьную баскетбольную команду. Известен рост каждого из n учеников, желающих попасть в эту команду. Составьте

Случайный рост ученика в диапазоне от 150 до 200 см, число претендентов n=50;

Программа на ПаскальABC:
program z_9;
var i, s: integer;
a: array [1..50] of integer;
begin
s:=0;
for i:=1 to 50 do begin
a[i] := random(150, 200);
if a[i]>=170 then s:=s+1;
end;
writeln(s, ' ученика(-ов) могут претендовать в баскетбольную команду.');
end