Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program ufo;
- uses crt, GraphABC;
- begin
- ClearWindow(black);
- {
- TextBackGround(2);
- ClrScr;
- Readln;
- TextBackGround(White);
- Writeln(' ');
- ClrScr;
- Readln; }
- Rectangle(120,5,515,395);
- Rectangle(120,395,120,0);
- end.
Add Comment
Please, Sign In to add comment