jogo bobo testando com case

Descrição

Esconder código-fonte

Program exemplo;

{Programa de teste que ede quem descobriu o Brasil
e diz se o usu rio acertou, usando Case}

uses crt;

Var
  resposta:char;

Begin
  clrscr;

  Writeln('Quem descobriu o Brasil?');

  Writeln('a - Silvio Santos');
  Writeln('b - Cabral');
  Writeln('c - Pl cido Domingos');

  Readln(resposta);

  Case resposta of
    'a': writeln('Resposta Errada');
    'b': writeln('Resposta Certa');
    'c': writeln('Resposta Errada');
    else writeln('Op‡Æo Inv lida');
  End;

  readkey;

end.