begin
var n := ReadInteger;
if n.IsEven then n.ToString.ToCharArray.PrintLines
end.
Автоматический (через заданное количество времени), и по щелчку