Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- uses crt,sysutils;label R;const X:Word=1;P='hello world';begin
- R:clrscr;write(P);gotoxy(X,1);write(upcase(P[X]));sleep(999);X:=X*Ord(X<11)+1;goto R
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement