Program Pzim ;
{fazer um programa para ler um número e chamar um procedimento que mostra que o numero lido é par ou impar}
var
num:integer;
procedure parimpar(x:integer); // prcedure nomedo procedimento (variavel:tipo_de_variavel)
// a variavel deve ser do mesmo tipo, mas de nome diferente
begin
if (x mod 2 = 0) then //testa se é par
writeln('O número é par') // exibe a resposta. antes de else, não se usa ponto e virgula
else // ou se é impa
writeln('O número é impar'); // exibe a responta
end;
Begin
{inicio do programa propriamente dito}
writeln('Digite um número : '); //solicita que se digite um numero
readln(num); //recebe o numero digitado
parimpar(num); //chama o procedimento
//procedimento não retorna valor, toda operação
//é feita dentro do procedimento
End.
