uses crt;
var A:array[1..100] of integer;
    n,i,tich:longint;
function nt(var n:integer):boolean;
var ok:boolean;
    i:integer;
begin
ok:=true;
        for i:=2 to n-1 do
                if n mod i=0 then ok:=ok and false;
                if n<=2 then nt:=false else nt:=ok;
end;
begin
clrscr;
write('Nhap n: '); readln(n);
        for i:=1 to n do
                begin
                        write('A[',i,']=');
                        readln(A[i]);
                        end;
tich:=1;
        for i:=1 to n do
                if nt(A[i]) then tich:=tich*A[i];
tich:=tich mod 2018;
write('Tich cac so nguyen to khi chia cho 2018 la: ',tich);
readln
end.

uses crt;
var i,n,s,t,j:integer;
a:array[1..100] of integer;

function kt(n:integer):boolean;
var i:integer;
begin
kt:=true;
 for i:=2 to n-1 do
  if n mod i=0 then kt:=false;
end;

begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
s:=1;
for i:=1 to n-1 do
begin
 t:=0;
 for j:=i+1 to n do
  if a[i]=a[j] then t:=t+1;
 if (kt(a[i])) and(t=0) then s:=s*a[i];
end;
write(s mod 2018);
readln;
end.