(*________________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejercicio Adicional (AS) 12.1: Cambio de signo

   Web del Autor: http://www.carlospes.com
  ________________________________________________*)

program AAS12011;

uses Crt;

var Numero : Real;

begin
   ClrScr;
   Write( 'Introduzca numero (real): ' );
   ReadLn( Numero );

   if ( Numero < 0 ) then
      Write( -Numero )
end.