[XErnestoX]

ecco che ti dico cosa ho fatto col 2 esercizio:
L' intestazione era : Scrivere un programma che, inserito un numero da tastiera maggiore di 0, dice se è pari o se è dispari. Suggerimento: usa l'operatore mod, che ritorna il resto di una divisione. (x mod y=resto di x/y)

Il mio codice è:

Codice:

Program PariDispari;
uses crt;
var x,y:integrer;

begin
clrscr;
write(' inserire un numero: ');
readln(x);
if x>0 then
begin
if x mod y=0 then
write(' ',x,' è pari')
else
if x mod y<>0 then
write(' ',x,' è dispari');
end;
else
writeln(' il numero è minore di 0');
writeln('premere invio per chiudere...);
readln
end.

Mi da questo errore:
Fatal: Syntax error ";" expected but "ELSE" found

che significa?