Даны натуральные числа от 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.