GotoXY

GOTO XY

Ir  (GOTO)   
Coordenadas(XY)

CÓDIGO

Program Goto_XY; Uses Crt; Var N1,N2:Integer; Begin ClrScr; gotoxy(7,3);WriteLN('Escribe un numero del [1 al 50]'); ReadLn(N1); GotoXY(7,5);WriteLN('Escribe otro numero del [10 al 25]'); ReadLn(N2); gotoxy(N1,N2);WriteLn('Estas son las cordenadas ',N1,',',N2); WriteLn;WriteLn; WriteLn('Presiona Enter p/Salir'); ReadLn; End.