Задан числовой массив, состоящий из 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