Запишите на языке Паскаль программу решения задачи номер 34 к § 3.4. Считайте рост претендента в команду случайным числом

var a: array [1..50] of integer;

i, col: integer;

begin

writeln(\'Генерируем массив с ростом претендентов\');

randomize;

for i := 1 to 50 do a[i]:=random(150, 200);

writeln(\'Считаем количество подходящих претендентов\');

for i := 1 to 50 do if a[i] > 170 then col := col + 1;

writeln(\'Количество подходящих конкурсантов равно: \', col);

end.