Найдите все трехзначные числа которые при делении на 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.

Результат:
122
182
242
302
362
422
482
542
602
662
722
782
842
902
962