Program PascalGuru;
uses crt;
const N=30;
type ocenki=0..5;
var Cl1,Cl2:array[1..N] of ocenki;
    i,count:integer;
    max,max1,max2:integer;
 
begin
 
for i:=1 to N do
    begin
    clrscr;
    writeln('Vvedite ocenki dlya 1 klassa (vsego 30): ');
    writeln;
    write('Ocenka ',i,' ucenika: '); readln(Cl1[i]);
    end;
 
for i:=1 to N do
    begin
    clrscr;
    writeln('Vvedite ocenki dlya 2 klassa (vsego 30): ');
    writeln;
    write('Ocenka ',i,' ucenika: '); readln(Cl2[i]);
    end;
{-----------------------------------------------------------------}
clrscr;
{"a"}
count:=0;
for i:=1 to N do
    begin
     if Cl1[i]=2 then inc(count);
     if Cl2[i]=2 then inc(count);
    end;
writeln('Variant "a": ');
writeln('Kolichestvo dvoechnikov: ',count);
{-----------------------------------------------------------------}
writeln;
max1:=Cl1[1];
max2:=Cl2[1];
for i:=2 to N do
    begin
     if Cl1[i]>max1 then max1:=Cl1[i];
     if Cl2[i]>max2 then max2:=Cl2[i];
    end;
 
if max1>max2 then max:=max1 else max:=max2;
writeln('Variant "b": ');
writeln('Cempiony [ocenki: ',max,']:');
writeln('-----------------------');
for i:=1 to N do
    if Cl1[i]=max then writeln(i,' ucenic iz "1" classa!');
for i:=1 to N do
    if Cl2[i]=max then writeln(i,' ucenic iz "2" classa!');
 
 
readln;readln;
end.