Не знаю сойдет или нет, но как бы эту задачу давно решал.
var a:array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(30)+1;
if a[i] mod 3 = 0 then
write (a[i],' ');
end;
readln;
<span>end.</span>
#scripdablmassive #windowsreset
См. приложения.
Объяснения ясны из таблиц.
Mod это остаток от деления
div целая часть от деления
x =42
y=0
11. с
12. d
13. a
14. b
15. Если наступит новый год, то у нас начнутся каникулы.
16.Если погода будет хорошей, то мы поедем в деревню.
17. Если на зимних каникулах пойдет снег и отец купит мне санки, то я буду кататься на санках.