Написать программу,которая для целых чисел из диапазона [2;40] выводит на экран только те, которые делятся на 7 и на 3.

Если я правильно понял, то делится сразу и на 7 и на 3var i:integer;beginfor i:=2 to 40 dobeginif(i mod 3=0) then if (i mod 7=0) then write(' ',i)end;end.