Script Copa do Mundo

coloquei um 'readkey' no final pra poder ver a tela quando tou compilando,

e coloquei tb a biblioteca 'crt'

flw


// -------------------------------------------------------------
// Programa que mostra na tela as cores da seleção Canarinho
// Escrito por Alexandre Pina - alexandrehkk@gmail.com
//
// -------------------------------------------------------------

Program CopaDoMundo ;

Uses crt;

var i: integer;
Begin

For i:=1 to 680 do begin
textcolor (yellow);
write (#178);
End;

For i:=1 to 720 do begin
textcolor (green);
write (#178);
End;
writeln ( '... ' );
writeln ( 'Cores da Seleção Canárinho - ' );
readkey;
End.