uses crt: var a:integer; begin clrscr; write('Bir karekter giriniz='); readln(a); for a:= 1 to a do begin gotoxy(a,a); write(a); gotoxy(26-a,a); write(a); delay(3000); end; readln; end.