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

program zz1;

var i:integer; / / вводим переменную целого типа

begin

for i:=100 to 999 do / / организуем цикл, в котором переберем все трехзначные числа

begin

if (i mod 4 = 2) and (i mod 5 = 2) and (i mod 6 = 2) / / проверяем условие, если при делении трехзначного числа на 4 5 6 в остатке получится 2, то

then write (i, ' '); / / выводим nht[pyfxyjt число на экран

end;

end.