Ответ:
Программа с комментариями в качестве объяснений.
Program mass; //название программы, может быть любым.
var k: integer; //k - целое число, счетчик
var A: array [1..15] of Integer; //массив A из 15 целых чисел, 15 спортсменов
begin // начать программу
For k := 1 To 15 Do // для k от 1 до 15 выполнить
begin // начать
A[k]:= random(11)+ 20;// к случайному числу из интервала [0;11) прибавляется 20
write(A[k]:4) ; //вывести элемент массива с номером k, под число отвести 4 позиции
end //завершить
end. //завершить программу