program  f;
label 1;
var p,i,code,n:longint;
    s:string;
    bb:boolean;
 
begin
1:write('Pi= '); readln(p);
if p>1000000 then begin writeln('ERROR: Pi < 999999'); goto 1  end;
 
str(p,s);
bb:=false;
n:=0;
val(s[1],i,code); n:=n+i;
val(s[2],i,code); n:=n+i;
val(s[3],i,code); n:=n+i;
p:=0;
val(s[4],i,code); p:=p+i;
val(s[5],i,code); p:=p+i;
val(s[6],i,code); p:=p+i;
 
if n=p then writeln('MAGICESKOE') else writeln('NE MAGICESKOE');
readln;
end.