Question

вывести все числа от 1 до 1000, которые: -- кратны 3 и 5

Answer 1

if (a[i]>=1) and (a[i]<=1000) and (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then
writeln  a[i];