Даны естественные числа от 20 до 50. напечатать те из их,

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 lt;gt; 0) then sum := sum + 1;

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

end.