Задание 5*. Введите рост учащихся своей группы, организовав ввод следующим образом: введите количество учащихся в классе: 15; введите рост учащихся; учащийся номер 1 — 165; учащийся номер 2 — 170; учащийся номер 3 — 156.

Данные приведены только для трёх учащихся, хотя в примере указано 15. Ниже программа запрашивает количество учеников и рост каждого, затем выводит введённые значения. Чтобы обработать класс из 15 человек, вводятся все 15 ростов.

program Task5;
const
  MaxN = 1000;
var
  h: array[1..MaxN] of integer;
  n, i: integer;
begin
  write('Введите количество учащихся в классе: ');
  readln(n);
  if (n < 1) or (n > MaxN) then
    halt;
  for i := 1 to n do
  begin
    write('Введите рост учащегося номер ', i, ': ');
    readln(h[i]);
  end;
  for i := 1 to n do
    writeln('Учащийся номер ', i, ' — ', h[i], ' см');
end.

Если требуется обработать ровно 15 учеников, задайте n := 15 и уберите ввод количества учащихся.