посчитайте написать программу вывода всех чисел [1056. . 50689], которые делятся нацело на 3 и на 6, но не делится на 8,9 и 5​

var i:longint;

begin

for i:=1056 to 50689 do begin

if (i mod 3 = 0) and (i mod 6 = 0) and (i mod 8 <> 0) and (i mod 9 <> 0) and (i mod 5 <> 0) then write(i,' ');

end;

end.