Нужно сделать с 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

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.