Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Dny 10i
Language: PASCAL
Code:
program desenhomascotedupla;
uses crt;

var codcor:integer;

begin

writeln( ' Introduza o codigo da cor de fundo (0 a 15)');
 
readln(codcor);
textbackground(codcor);
clrscr; 

textcolor (15);
writeln  ('HH');
  Writeln  ('|');
  Writeln  ('___');
writeln;
Textcolor( 9);
writeln  ('HH');
  Writeln  ('|');
  Writeln  ('___');



readkey;
End.
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
Comments: