Program foci1;
Uses CRT;
Var
   tipp : char;
Const
     ki = 'A hazai csapat';
Begin
     ClrScr;
     WriteLn('Kerem a tippet');
     ReadLn(tipp);
     Case tipp Of
          '1' : then WriteLn(ki, 'gyozott');
          'X' : then WriteLn(ki, 'dontetlent ert el');
          '2' : then WriteLn(ki, 'vesztett');
              Else WriteLn('Az adat nem ertekelheto');
     End;
     ReadLn;
End.

// 12.17 Error 37: END expected.