program gnomi;

var N, i, sred, cnt:integer;

clas: array[1..29] of integer; //почему 1..29? По условию 0<N<30, значит N от 1 до 29

begin

   randomize;

   cnt:=0; //счетчик гномов

   sred:=140; //средний рост, ниже которого ученик считается гномом

   writeln('Введите кол-во учеников от 1 до 29');

   readln(N); //вводим количество учеников

   if (N>0) and (N<30) then

   begin

   for i:=1 to N do  

   begin

   clas[i]:=120+random(51); //заполним массив учащихся случайным ростом  от 120 до 170

   if clas[i]<sred then //если рост очередного учащегося меньше 140, счетчик +1

   cnt:=cnt+1;

   end;

   writeln('Кол-во учащихся ниже ',sred,' = ',cnt);

   end

   else writeln('Кол-во учеников введено не корректно');

   readln();

end.