program asszonynev; var s:string; begin WriteLn('Kerem a nevet!'); ReadLn(s); if (s[length(s)-1]='n') and (s[length(s)]='e') then writeln('Ferjesasszony') else writeln('Nem tudni a csaladi allapotot'); readln end.