program capsonhan;
uses crt;
var i,n:integer;
    A:array[1..1000] of integer;
    kt:boolean;
    k:real;
begin
 clrscr;
 readln(n);
 For i:=1 to n do read(A[i]);
 k:=A[2]/A[1];
 For i:=2 to n do if A[i]=k*A[i-1] then kt:=true
   else
    begin
     kt:=false;
     break;
    end;
 If kt=true then writeln('Day la csn')
 else writeln('Day ko la csn');
 readln;
 readln;
end.

program capsonhan;
uses crt;
var S,i,d,n,j,dem:integer;
    A:array[1..500] of integer;
begin
 clrscr;
 readln(n); d:=0; S:=0; dem:=0;
 For i:=1 to n do read(A[i]);
 For i:=1 to n do
  begin
   For j:=1 to A[i] do if A[i] mod j=0 then inc(d);
   if d=2 then
    begin
     inc(dem);
     S:=S+A[i];
     d:=0;
    end
   else d:=0;
   end;
 writeln(dem);
 writeln(S);
 readln;
 readln;
end.