var a,k3,k4,k5,i: integer;
cr:real;
begin
k3:=0;
k4:=0;
k5 := 0;
cr:=0;
for i:=1 to 20 do
begin
writeln('введите оценку ученика');
readln (a);
cr:=cr+a;
if a mod 3=0 then k3:=k3+1 else if a mod 4= 0 then k4:=k4+1 else k5:=k5+1;
end;
writeln('число отметок 5,полученных учениками за контрольную работу:',k5);
cr:=cr/20;
writeln('Средний , полученный учениками за контрольную работу:',cr);
if (k5>k4) and (k5>k3) then writeln('пятерок больше всего')
else if (k4>k3) then writeln('четверок больше всего')
else writeln('троек больше всего')
end.
