var: usuario : integer; usuario := strtoint (InputBox('Identificación', 'Ingrese su numero de usuario',''));