[steve]

Il ragionamento è giustissimo, ma il codice è sbagliato:
tu dici -> Se x diviso 2 ha il resto uguale a 0
però fai -> Se x diviso y ha il resto uguale a 0 (la variabile y non ha nessun valore; di default prende il valore 0, e un numero diviso 0 non si può fare)

Sostituendo y con 2 il programma funziona correttamente.

Questa è la mia soluzione al problema:

Codice PHP:

program pariDispari;
uses crt;
var num:integer;

begin
    clrscr;
    write('Inserire un numero: ');
    readln(num);
    if num > 0 then
        begin
        if (num mod 2)=0 then
            writeln('Il numero ',num,' è pari')
        else
            writeln('Il numero ',num,' è dispari');
        end
    else
        writeln(num,' è inferiore a 0');
    writeln('Premere invio per chiudere...');
    readln
end. 


PS. La "versione italianizzata" è detta pseudocodice (fai capire quello che vuoi fare senza utilizzare nessun linguaggio di programmazione)