Введите массив оценки ученика и подсчитайте количество повышенных оценок (4 и 5)

const N=15; (в задаче не дано количество оценок, поэтому сюда нужно подставить необходимое значение)

var a: array[1 ... N] of integer; k, i: integer;

begin

writeln ('Введите оценки ученика')

for i:=1 to N do

begin

readln (a[i]);

if (a[i]=4) or (a[i]=5) then inc (k)

end;

writeln ('Количество повышенных оценок: ');

writeln (k)

end.