дан школьный журнал. в нём стоит 25 оценок, от 1 до 5. напишите программу в паскале, что бы она выдавала количество пятёрок. умоляю В ПАСКАЛЕ

var

a: array[0..25] of integer;

i,b: integer;

begin

for i:= 0 to 24 do

readln(a[i]);

for i:= 0 to 25 do

begin

if a[i] = 5 then

b:= b + 1;

end;

writeln('Количество пятерок: ',b);

end.

Объяснение:

Вроде бы так :)