Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  fundo - 11; cor - 5; cor - 15
Language: PASCAL
Code:
Program DesenhoMascoteDupla;
uses crt;
Var CodCor: integer;
Begin
     Writeln ('Introduza o código da cor: (0 a 15)');
     Readln (CodCor);
     TextBackground (CodCor);
     ClrScr;
     TextColor (5);
     Writeln (' O');
     Writeln ('-|-');
     Writeln (' U');
     Writeln ('|.|');
     Writeln;
     Writeln;
     Writeln;
     TextColor (15);
     Writeln (' O');
     Writeln ('-|-');
     Writeln (' U');
     Writeln ('|.|');
     Readln
End.

          
          
          
          
          
Comments: