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

вот полная uses crt;vari,k:integer;beginfor i:=100 to 999 doif ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)then beginwriteln(i);k:=k+1;end;writeln('кол-во',k)end.