Algoritmo para ler um número inteiro e informar se o número é par ou ímpar.

//Faça um algoritmo para ler um número inteiro e informar se o número é par ou ímpar.

program n_par_impar;

var numero:integer;

begin

writeln('escreva um numero');

readln(numero);

if(numero mod 2)=0 then

writeln('o numero digitado eh par!!!!')

else

begin

writeln('o numero digitado eh impar!!!!');

end;

readln;

end.