Program lala; var a:integer; begin; read(a); if a mod 2 =0 then; writeln(a)('Чётное число') else writeln (a)('Нечётное число'); end. Появляется ошибка Встречено 'else', а ожидалось ';'