iowisp3   const n= 15;
 var
   a:array[1..n] of integer;
   i,c:integer;
 begin
   for i:=1 to n do
    begin
      read(a[i]);
      if a[i]<a[1] then
      c:=c+1;
    end;
  writeln(c);
 end.

vladmor Const n = 15;
var a:array[1..n] of integer;
i,k:integer;
begin
  for i:=1 to n do begin
    a[i]:=random(101)-50;write(a[i]:4);
  end;
  writeln;
  for i:=2 to n do if a[i]<a[1] then k:=k+1;
  writeln('Меньше чем ',a[1],' получилось: ', k);
end.

Тестовое решение
12  13  19 -14 -23 -12 -11  37 -48 -45  30 -12  47  17  50
Меньше чем 12 получилось: 7