5. Для массива, описанного в примере 3.2, введите данные с клавиатуры. Задайте номер учащегося. Выведите его фамилию.

var S: array[1..100] of string;
var n, m: integer;
begin
  write('Введите количество учащихся в классе: ');
  readln(n);
  for var i := 1 to n do
    begin
    write('Фамилия учащегося номер ', i, ': ');
  readln(S[i]);
    end;
  write('Введите номер учащегося для вывода: ');
read(m);
writeln(S[m]);
end.

В цикле задаём фамилии учащихся в классе, затем вводим номер учащегося для вывода, записываем этот номер в переменную m. Затем выводим на экран элемент массива a[m] — фамилию учащегося.