Встречено 'else', а ожидался оператор(в чём ошибка)
var a: integer;
begin
Writeln ('Введите число');
readln(a);
if a mod 2=0
then
Writeln('Число чётное');
else
Writeln('Число нечётное');
readln;
end.

Как и говорил, убираем ";" после последнего оператора до else

var a: integer;

begin

Writeln ('Введите число');

readln(a);

if a mod 2=0

then

Writeln('Число чётное')

else

Writeln('Число нечётное');

readln;

end.