Advertisement
Guest User

Untitled

a guest
Oct 13th, 2015
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. Procedure ShowColor(color : string; no : integer);
  2. begin
  3. ClrScr();
  4. if color = 'Green' then
  5. TextColor(Green);
  6. if color = 'Red' then
  7. TextColor(Red);
  8. if color = 'Yellow' then
  9. TextColor(Yellow);
  10. if color = 'Blue' then
  11. TextColor(Blue);
  12. writeln('('+IntToStr(no)+')'+color+#13#10);
  13. Sleep(time);
  14. ClrScr();
  15. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement