programa Exercicio24;
 
var
  x, modulo: Inteiro;
inicio
  Escreva('Informe um numero: ');
  Leia(x);
 
  se (x < 0) entao
    modulo := x * (-1)
  senao
    modulo := x;
 
  Escreva('O modulo de ', x, ' eh ', modulo);
fim.

program Exercicio24;
 
{$mode objfpc}{$H+}
 
uses
  Classes,
  SysUtils;
 
var
  x, modulo: Integer;
begin
  try
    Write('Informe um numero: ');
    Readln(x);
 
    if (x < 0) then
      modulo := x * (-1)
    else
      modulo := x;
 
    Write('O modulo de ', x, ' eh ', modulo);
 
    Write(#10#13#10#13, 'Tecle "Enter" para sair.');
    Readln;
 
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.