program prgvizsgalo_butan;
var s:string;
    i:byte;
begin
     for i:=1 to 10 do
     begin
     WriteLn('Kerem az allomany nevet!');
     ReadLn(s);
     if ((s[length(s)-3]='.') and
        (s[length(s)-2]='e') and
        (s[length(s)-1]='x') and
        (s[length(s)]=  'e'))
        or
        ((s[length(s)-3]='.') and
        (s[length(s)-2]='c') and
        (s[length(s)-1]='o') and
        (s[length(s)]=  'm'))
        or
        ((s[length(s)-3]='.') and
        (s[length(s)-2]='b') and
        (s[length(s)-1]='a') and
        (s[length(s)]=  't'))
        then
        writeln('Program file')
        else
        writeln('Nem program file');
     end;
     readln
end.