uses crt; var i:byte; ad:string; begin clrscr; writeln('kelime gir:');readln(ad); for i:=1 to 15 do begin textcolor(i); writeln(ad); end; gotoxy(12,25);writeln(ahmet); readln; end;