Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Procedure ShowColor(color : string; no : integer);
- begin
- ClrScr();
- if color = 'Green' then
- TextColor(Green);
- if color = 'Red' then
- TextColor(Red);
- if color = 'Yellow' then
- TextColor(Yellow);
- if color = 'Blue' then
- TextColor(Blue);
- writeln('('+IntToStr(no)+')'+color+#13#10);
- Sleep(time);
- ClrScr();
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement