Напишите программу на 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.