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

var a: array[1 ... 15] of integer;

i, col: integer;

begin

writeln ('Заполните массив с клавиатуры');

for i : = 1 to 15 do readln (a[i]);

writeln ('Считаем количество элементов, которые меньше первого');

for i : = 2 to 15 do if a[i] < a[1] then col : = col + 1;

writeln ('Количество элементов, которые меньше первого: ', col);

end