Вывод трехзначных чисел

[Dark Raven]

Вывести все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4 и при увеличении на 4 делятся на 5.

Задача на Delphi

[whatever]

function checkelem(n:integer):boolean;
begin
  result:=false;
  if (((n+1) mod 2)=0)and(((n+2) mod 3)=0)and(((n+3) mod 4)=0)and(((n+4) mod 5)=0) then
    result:=true;
end;

Прогоняешь в цикле от 100 до 999, если true, то печатаешь.