Programa PISTAS

program PISTAS_ON_LINE;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

I:Integer;

TENTATIVA:Integer;

DATA:Integer;

DIA:Integer;

SENHA:Integer;

SENHA02:Integer;

CODIGO:Integer;

CELULAR:Integer;

PERGUNTA:Char;

PERGUNTA01:Char;

PERGUNTA02:Char;

PERGUNTA03:Char;

PERGUNTA04:Char;

PERGUNTA05:Char;

PERGUNTA06:Char;

NUMERO:Integer;

NUMERO01:Char;

NUMERO02:Char;

NUMERO03:Char;

NUMERO04:Char;

begin

try

WriteLn('');

WriteLn(' AMOR SEJA BEM VINDA AS MINHAS PISTAS ON LINE...');

WriteLn(' DESENVOLVI ESTE PROGRAMA SO PARA VOCE... ');

WriteLn(' PARA CONTINUAR SERA NECESSARIO VALIDAR O USUARIO.');

WriteLn(' INSIRA A DATA DE SEU ANIVERSARIO (DiaMes).');

WriteLn('');

ReadLn(DIA);

If

DIA = 0308 Then

Begin

WriteLn('');

WriteLn(' OI AMOR, AGORA VOCE PODE CONTINUAR SUA CACADA' );

WriteLn('');

WriteLn('');

WriteLn(' PISTA N 2');

WriteLn('');

WriteLn(' DATA DO PROXIMO ANIVERSSARIO DE NAMORO (DiaMes).');

WriteLn('');

ReadLn(DATA);

If

DATA = 1911 Then

Begin

WriteLn('');

WriteLn(' A PROXIMA PISTA AO APERTAR DE UM BOTAO DO CEUS ELA VAI CAIR... BOA SORTE.');

WriteLn('');

end

Else

Begin

Repeat

begin

WriteLn('');

WriteLn(' DATA INVALIDA.');

WriteLn('');

WriteLn(' POR FAVOR ENTRE COM A DATA CORRETA (DiaMes).');

WriteLn('');

ReadLn(DATA);

end;

until

DATA=1911;

WriteLn('');

WriteLn(' A PROXIMA PISTA AO APERTAR DE UM BOTAO DO CEUS ELA VAI CAIR... BOA SORTE.');

end;

Begin

WriteLn('');

WriteLn(' PISTA N 5');

WriteLn('');

WriteLn(' POR FAVOR DIGITE A SENHA ENCONTRADA.');

WriteLn('');

ReadLn(SENHA);

If

SENHA = 42294360 Then

Begin

WriteLn('');

WriteLn(' A PROXIMA PISTA SE ENCONTRA AONDE O CACHORRO COSTUMA DORMIR.');

WriteLn('');

end

Else

Begin

Repeat

begin

WriteLn('');

WriteLn('SENHA INVALIDA');

WriteLn('');

WriteLn('POR FAVOR DIGITE A SENHA ENCONTRADA');

WriteLn('');

ReadLn(SENHA);

end;

until

SENHA=42294360;

WriteLn('');

WriteLn('A PROXIMA PISTA SE ENCONTRA AONDE O CACHORRO COSTUMA DORMIR.');

end;

Begin

WriteLn('');

WriteLn(' PISTA N 8');

WriteLn('');

WriteLn(' POR FAVOR DIGITE O CODIGO ENCONTRADO.');

WriteLn('');

ReadLn(CODIGO);

If

CODIGO = 6894 Then

Begin

WriteLn('');