Ответ:

var n,i,s:integer; a:array[1..1000] of integer;

begin

 readln(n);

 for i:=1 to n do

   read(a[i]);

 for i:=1 to n do

   if a[i]<50 then inc(s);

 writeln(s);

end.

Объяснение:

Вводишь n, затем масив. Выводится ответ на задачу.

Удачи! :)