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

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.