Program Demonstra_Uso_de_Flags;                      { Flag: Valor especial }
Var
  Fim_Prog: string[10];
Begin
  Fim_Prog:='X';
  While(Fim_Prog<>'S')
  Do Begin
       Writeln('Deseja terminar o programa? ');
       ReadLn (Fim_Prog);

       If (Fim_Prog = 'Sim') or (Fim_Prog = 'SIM') or (Fim_Prog = 'sim') or
          (Fim_Prog  = 'S')  or (Fim_Prog = 's')
       Then Fim_Prog:='S';

       If (Fim_Prog = 'NĈo') or (Fim_Prog = 'NÇO') or (Fim_Prog = 'nĈo') or
          (Fim_Prog  = 'N')  or (Fim_Prog = 'n')   or (Fim_Prog = 'nao')
       Then Fim_Prog:='N';

       If  (Fim_Prog <> 'S') and (Fim_Prog <> 'N')
       Then Fim_Prog:='X';

       If (Fim_Prog = 'X') Then Writeln('>> Resposta inv lida!');

     End;
End.