uses crt; var a,t:string; x:integer; begin clrscr; write('bir kelime giriniz:');readln(a); for x:=1 to length(a) do begin delay(300); textcolor(x); t:=copy(a,x,1); write(t); end; readln; end.