WHITE FOZ SALON

Este foi um programa feito completamente sozinho

O CODIGO

Program White_Foz_Salon ;
var
n1,n3,n6,n10:string;
n2,n4,n5,n7,n8,n9:integer;

Begin

textcolor(lightgreen);
writeln('Bem-vindo a...');
readln;
writeln('-------------------------------------------------------------------------');
write('------------------------------');
TEXTCOLOR(white);
write('WHITE');
textcolor(lightblue);
write('FOZ SALON');textcolor(lightgreen);
writeln('-----------------------------');
writeln('-------------------------------------------------------------------------');
readln;
writeln('Qual é o seu nome?');
read(n6);
write('Olá ',n6 );
writeln('. Eu sou o Luis e serei o seu adversario esta noite!');
readln;
textcolor(lightred);
write('REGRAS:');
textcolor(lightgreen);
writeln('Primeiro voce escolhe um numero de 1 a 12.');
readln;
writeln('De seguida voce faz a sua aposta usando as suas fichas.');
readln;
writeln('Depois eu lanço os dados e se voce acertar ganhou, senão perdeu!');
readln;
repeat
writeln('Ambos temos 1000 fichas');
n7 := 1000;
writeln('Pronto?');
writeln('sim/nao');
read (n3);
if n3 = 'sim' then
begin
repeat
repeat
writeln('escolha um numero');
read(n2);
if ( n2 > 12 ) or ( n2 < 1 ) then
writeln('tem de escolher um numero entre 1 e 12.');
until (n2 <= 12) and ( n2 >= 1) ;
writeln('Quanto vai apostar?');
read (n8);
if n8 > n7 then
begin
writeln('isso é impossivel');
writeln('Quanto vai apostar?');
read (n8);
n9:=random(12)+1 ;
write('Saiu o ');
textcolor(yellow);
writeln(n9, '' );
textcolor(lightgreen);
end
else
begin
n9:=random(12)+1 ;
write('Saiu o ');
textcolor(yellow);
writeln(n9, '' );
textcolor(lightgreen);
end;
if n2 = n9 then
begin
n7:=( n7 -n8 )+ (n8*2);
write('Neste momento tem ',n7);
writeln(' fichas');
end
else
begin
n7:= n7 - n8;
write('Neste momento tem ',n7);
writeln(' fichas')
end
until (n7 = 0) or (n7 = 2000);if n7 = 0 then
writeln('Quer jogar outra vez?');
writeln('sim/nao');
read (n10);
end;
until n10 = 'nao';
writeln ('Ficarei à sua espera para jogar outra vez');
writeln ('Adeus');
End.

O RESULTADO FINAL