Спасибо всем за ответы, сделал так:
var
a: longint;
begin
writeln('Если хотите выйти из программы, то просто ее закройте');
while true do
begin
writeln('Введите целое число(не более 2100000000)');
readln(a);
if a mod 2 = 0 then writeln('Это число четное')
else writeln('Это число нечетное');
end;
end.
Написано
Войдите на сайт
Чтобы задать вопрос и получить на него квалифицированный ответ.