Массив целых чисел 30 элементов. Найти количество значения которых больше число А.…

var arr: array [1… 30] of integer; i, a, c: integer; begin writeln ('Введите массив'); for i: =1 to 30 do read (arr[i]); writeln ('Введите A'); read (a); c: =0; for i: =1 to 30 do if arr[i] > a then inc (c); writeln (c); end.