Mega Sena

Boa noite estou postando mais um programa feito no pascalzim espero que vocês gostem, ele faz um sorteio de seis números de 0 a 60 e sorteia 6 números.
Façam suas apostas e torçam.

Program megasena ;
var
n:integer;
Begin
gotoxy(23,10);
textcolor(white);
writeln(‘Resultado da Mega Sena’);
randomize;

repeat
gotoxy(25,13);
textcolor(red);
textbackground(white);
for n:=1 to 6 do
begin

write(‘ ‘,random(60)+1);
delay(100);
end;
until n>0;
End.

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s

%d bloggers like this: