// -------------------------------------------------------------
// Programa que mostra na tela a bandeira francesa.
//
// Desenvolvido pelo beta-tester Danilo Rafael Galetti :~
// -------------------------------------------------------------

Program Pzim ;
var linha, coluna: integer;
Begin
 // Percorre cada linha da tela de impressao...
 For linha:=1 to 25 do 
 Begin
   // Imprime parte blue
   For coluna:=1 to 25 do 
   Begin
     gotoxy (coluna,linha);
     textcolor (blue);
     write (#178);
   End;

   // Imprime parte branca 
   For coluna:=26 to 54 do 
   Begin
     gotoxy (coluna,linha);
     textcolor (white);
     write (#178);
   End;

   // Imprime parte vermelho 
   For coluna:=55 to 80 do 
   Begin
     gotoxy (coluna,linha);
     textcolor (red);
     write (#178);
   End;
 End;  

 End.