Напишите программу, которая принимает с клавиатуры 12 целых чисел и выводит на экран, сколько из них были больше, чем

var a, b, i, n: integer; // b — первое число; i — счётчик; n — количество чисел, превышающих первое число; a — переменная значений чисел со 2-ого по 11-оеbeginn:=0;writeln(\'Введите 12 чисел с клавиатуры.\');readln(b);for i:=1 to 11 do beginreadln(a);if a>b then n:=n+1;end;writeln(\'Количество чисел, больших, чем первое число: \', n);end.