program lala;
var a:integer;
begin;
read(a);
if a mod 2 =0 then;
writeln(a)('Чётное число')
else writeln (a)('Нечётное число');
end.

Появляется ошибка Встречено 'else', а ожидалось ';'

Поправил----------------------------------------------Program lala;var a:integer;beginread(a);if a mod 2 =0 thenwriteln(a,' Чётное число')else writeln (a, ' Нечётное число');end.