Оператор цикла с постусловием

[ProgrammiST-_-]

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

[NetSpace]

var a:Integer;
begin
for a:=99 to 999 do
begin
if((a+1)mod 2=0)and((a+2)mod 3=0)and((a+3)mod 4=0)and((a+4)mod 5=0)then
WriteLn('a = ',a);
end;
end;