Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- m, m2, m13, m26, ans, i, n, a:integer;
- function max(a,b:integer):integer;
- begin
- if (a > b) then max:=a
- else max:=b;
- end;
- begin
- m := 0;
- m2 := 0;
- m13 := 0;
- m26 := 0;
- read(n);
- for i:=1 to n do begin
- read(a);
- if (a mod 26 = 0) then begin
- if (a >= m26) then m := max(m, m26);
- m26 := max(m26, a);
- end else begin
- if (m mod 2 = 0) then m2 := max(m2, a)
- else if (m mod 13 = 0) then m13 := max(m13, a)
- else m := max(m, a);
- end;
- end;
- m := max(m, max(m2, m13));
- ans := max(m2 * m13, m * m26);
- read(a);
- if (a = ans) then writeln('Контроль пройден.')
- else writeln('Контроль не пройден.');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement