Таймер в паскале, цикл, подскажете?

Question

[flatcar]

Допустим я сделал такую простенькую программу:
var
a: longint;

begin
writeln('Введите целое число(не более 2100000000)');
readln(a);
if a mod 2 = 0 then writeln('Это число четное')
else writeln('Это число нечетное');
end.

При запуске в расширении .exe программа после выполнения сразу закрывается. Подскажите исходный код таймера и как задать бесконечный цикл (так чтобы программа постоянно повторялась).

Comments

[flatcar]

Спасибо всем за ответы, сделал так:
var
a: longint;

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

Answer 1

[Евгений Колегов]

Оберните все в цикл вайл, и сообщайте пользователю, например, для выхода нажмите 0, если введен не ноль цикл продолжается.

Answer 2

[Антон Федорян]

Например, так:

var
	a: longint;
begin
	writeln('Введите целое число(не более 2100000000)');
	readln(a);
	while (a <> 0) do
		begin
			if a mod 2 = 0 then
				writeln('Это число четное')
			else
				writeln('Это число нечетное');
			writeln('Введите целое число(не более 2100000000)');
			readln(a);
		end;
end.

А таймер какую роль должен играть?