найдите все трехзначные числа которые при делении на 4 на 5 на 6 дают в остатке 2

Var i : Integer;Begin  For i:=100 to 999 do    If (i mod 4 = 2) and (i mod 5 = 2) and (i mod 6 = 2) then Writeln(i);end.Результат:122182242302362422482542602662722782842902962