Просто подбираеш по логике числа например 2 4 6 8 или 4 8 12 16 20 или 22 44 66 88
program n1cel;
var
a,c:integer;
begin
a:=1;
c:=1;
while с mod 2009<>0 do
begin
a:=a+1;
c:=c+11;
end;
writeln ('через ', a, ' секунд');
end.
нарисовал схему, вроде все видно
Допустим: Папа родился в 1977 , но он младше мамы по месяцам и дням. Мама родилась на 2 года позже папы , в мае 5.