Exercicio 1 de procedimento

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.