programa Exercicio22;
 
uses
  Classes,
  SysUtils;
 
var
  x: Inteiro;
inicio
  Escreva('Informe um numero: ');
  Leia(x);
 
  se (x mod 2 = 0) entao
    Escreva('O numero ', x, ' eh par.')
  senao
    Escreva('O numero ', x, ' eh impar.');
fim.

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