Как и говорил, убираем ";" после последнего оператора до 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.