Indentificar o Numero se é par ou impar com Pascal no Lazarus

bom mais um codigo simples que tem a funcionalidade de identificar se um numero é par ou impar após o codigo o programador pode implementar em outras utilizações.

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

  var

    num: integer ;
    name,mensagem: string;

begin

  name := 'Euclézio';
  writeln();
  {aqui é lido o numero digitado pelo usuario}
  writeln('Digite 1 numero:');
  writeln();
  readln(num);

  {esta condição identifica se o numero digitado
  pelo usuario é divisivel por 2 e se o resto da divisão
  for 0 entao ele é par}
  {obs: para indentificar como impar muda-se o sinal de "=" para
  "<>" ai obtem-se o valor impar}

      if (num mod 2 = 0 ) then

      mensagem:=('o numero é par: ')
  {o else abaixo é para a seguinte condição se o numero não
  for par obrigatoriamente sera impar}
       else
             mensagem:=('o numero é impar: ');

{aqui é exibido o resultado que é a mensagem e o numero}
  writeln(mensagem,num);
  writeln('CRIADO POR: ', name);
  writeln('PRESS <ENTER> TO QUIT!.');
  readln();
  writeln();
end.

Comentários

Formulário de contato

Nome

E-mail *

Mensagem *