//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var n:=0;
var a: array[0..29] of integer; //массив с номерами участников
for var i := 0 to 29 do a[i] := i; //Заполняем номерами
var b:=ArrRandom(30,0,100); //Заполним сл.числами массив ст результатами
for var i:=0 to 29 do
if b[i]<70 then println('Номер участника:',a[i],' Баллы:',b[i]);<br>end.