program CheckEvenNumber;
varnumber: integer;
beginwriteln('Введите число: ');readln(number);
if number mod 2 = 0 thenwriteln('Число ', number, ' является четным.')elsewriteln('Число ', number, ' не является четным.');end.
program CheckEvenNumber;
var
number: integer;
begin
writeln('Введите число: ');
readln(number);
if number mod 2 = 0 then
writeln('Число ', number, ' является четным.')
else
writeln('Число ', number, ' не является четным.');
end.