Question

Пожалуйста помогите!!!!! Нужно сделать с помощью PASCAL
Я СДЕЛАЛА НАЧАЛО, ПОМОГИТЕ ЗАКОНЧИТЬ И ЕСЛИ ЕСТЬ ОШИБКИ- ИСПРАВИТЬ
Имеется n кол-во учеников одного класса. Для каждого в компьютер вводится рост. До 160-низкий, от 160 до 170-средний, от 170-высокий.
Вот начало программы:

PROGRAM rost;
VAR A,B,N:REAL;
BEGIN
?N=0(НЕ ЗНАЮ ГДЕ ЭТО ПОСТАВИТЬ)
WRITELN( 'ЕСТЬ ЛИ УЧЕНИКИ В КЛАССЕ? , ЕСЛИ ДА-1, НЕТ-0);
READLN(A);
WHILE A=1 DO;
BEGIN
WRITELN ('ВВЕДИТЕ СВОЙ РОСТ');
READLN (B);
N=N+1
IF B<160 THEN.................
..................
..................
....................

Answer 1

var
  Rost: array[1..50] of real;
  n, i: integer;

begin
  write('Сколько человек в классе? ');
  readln(n); {Ввод и чтение кол-ва человек в классе}
  for i := 1 to n do
  begin
    write('Рост ученика: ');
    readln(Rost[i]);
    if Rost[i] < 160
      then writeln('Рост ', i, '-ого ученика низкий')
    else
    if (Rost[i] > 159) and (Rost[i] < 170)
      then writeln('Рост ', i, '-ого ученика средний')
    else
      writeln('Рост ', i, '-ого ученика высокий');
  end;
end.