Встречено 'else', а ожидался оператор(в чём ошибка) var a: integer; begin Writeln ('Введите число'); readln(a); if a mod 2=0 then Writeln('Число чётное'); else Writeln('Число нечётное'); readln; end.
";" после оператора последнего перед else уберите
Видимо, писал какой-то фанат языка С. Это там ставится точка с запятой перед else )))
Я сам на этом очень часто попадаюсь))Да не, 1-4 класс вряд ли знает о существовании С :)
Как и говорил, убираем ";" после последнего оператора до else
var a: integer;
begin
Writeln ('Введите число');
readln(a);
if a mod 2=0
then
Writeln('Число чётное')
else
Writeln('Число нечётное');
readln;
end.
Спасибо
Учитесь читать ошибки компилятора!