Напишите пожалуйста программу на Pascal ABC. Имеются данные по оценкам за контрольную работу 10 учащихся. Написать программу, определяющую, сколько учащихся имеют высшую оценку (5).

const N=10;var N, a, c: integer;begin for i:=1 to N do begin write ('оценка='); read (a);end; c:=0; for i:=1 to N do begin if a=5 then begin c:=c+1; end;end;write (c);end.