Stuff

Program foci1;
Uses CRT;
Var
   tipp : char;
Const
     ki = 'A hazai csapat';
Begin
     ClrScr;
     WriteLn('K‚rem a tippet');
     ReadLn(tipp);
     Case tipp Of
          '1' : then WriteLn('gy‹z”tt');
          'X' : then WriteLn(ki, 'd”ntetlent ‚rt el');
          '2' : then WriteLn(ki, 'vesztett');
              Else WriteLn('Az adat nem ‚rt‚kelhet‹');
     End;
     ReadLn;
End.