program massiv;
uses crt;
var a:array [1..20] of integer;
i,summ,x:integer;
st,stri:string;
begin
clrscr;
randomize;
stri:='на 3 делятся след.числа:';
summ:=0;
For i:=1 to 20 do
begin
	a[i]:=random(100);
	x:=a[i] mod 3;
	if (x=0) then
        begin
              inc(summ);
              str(a[i],st);
              stri:=stri+st+';';
        end;
end;
writeln(stri);
writeln('количество чисел: ',summ);
Readln;
end.