Даны натуральные числа от 20 до 50. напечатать те из них, которые делятся на 3, но не делятся на 5. Программа на Pascal

var a: array[1 ... 30] of byte;

i, j, sum: byte;

begin

j:=20;

writeln ('Заполняем массив');

for i:=1 to 30 do begin

a[i] : = j;

j : = j + 1;

end;

writeln ('Ищем элементы, которые удовлетворяют условию');

for i : = 1 to 30 do if (a[i] mod 3 = 0) and (a[i] mod 5 0) then sum : = sum + 1;

writeln ('Количество элементов, которые кратны 3, но не кратны 5 равно ', sum);

end.