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;
begin
read(a);
if a mod 2 =0 then
writeln(a,' Чётное число')
else writeln (a, ' Нечётное число');
end.