Ильгиза

program upr1;
const n =5;
type mas=array [1..n] of byte ;
mn=set of byte;
var k,c:integer;
procedure vv( var a:mas);
var i:integer;
begin
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
end;
procedure vv1(var m:mn);
var i,k:integer;
a:mas;
begin
for i:=1 to n do
if a[i] in m then begin
write(a[i]:3);
k:=k+1;
end;
writeln;
end;
var n3,n8:mn;
i:integer;
a:mas;
begin
n3:=[];
n3:=[];
for c:=1 to n do
begin
if a[c] mod 3 = 0 then n3:=n3+[a[c]];
if a[c] mod 8 = 0 then n8:=n8+[a[c]];
end;
writeln('введите числа:');
vv(a);
writeln('числа кратные 3:');
vv1(n3);
writeln('числа кратные 8:');
vv1(n8);
writeln('количество элементов во множестве:', k);
end.


необходимо распечатать множество,удовлетворяющее указанному условию и подсчитать количество элементов в полученном множестве.
Даны n целых чисел( числа вводятся с клавиатуры или с помощью датчика случайных чисел). Напечатать в порядке возрастания те из них, которые удовлетворяют условию:
делятся нацело на 3 или 8.