Задан числовой массив, состоящий из 15 элементов. Подсчитать и вывести на экран кол

  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.