var
n,i,j,r,p1,p2,m5,m,m7,m35,x,p:integer;
begin
readln(n);
m:=0; m5:=0; m7:=0; m35:=0;
for i:=1 to n do
begin
if (x mod 5 = 0) and (x > m5) and (x mod 7 <> 0) then
m5:=x;
if (x mod 7 = 0) and (x > m7) and (x mod 5 <> 0) then
m7:=x;
if (x mod 35 = 0) and (x > m35) then
begin
if m35 > m then m := m35;
m35 :=x;
end
else if x > m then m := x;
end;
readln(r);
r1:=1;
if (m5 * m7 > r1) and (m5 <> 0) and (m7 <> 0) then
if (m35*m > r1) and (m35 <> 0) and (m <> 0) then
writeln('Computed checksum: ', r1);
if r1 = r then writeln('Checksum control: pass')
else writeln('Checksum control: fail');
end.
English
Russian