Из множества целых чисел 1..20 выделить: множество чисел, делящихся на 6 без остатка; множество чисел делящихся без остатка на 2 или на 3

const
 f1='delitsya na ';
 f2='ne delitsya na ';
var
 a:array[1..3]of integer;
 c:char;
 k,s,sc,sn,i,j,z,n,m:longint;
begin
assign(input,'delimost.in');reset(input);
assign(output,'delimost.out');rewrite(output);
 while not(eoln) do
 begin
  inc(z);
  read(c);
  n:=ord(c)-48;
  inc(s,n);
  if odd(z) then inc(sn,n)else inc(sc,n);
  a[1]:=a[2]; a[2]:=a[3]; a[3]:=n;
 end;
 if (a[3] mod 2)=0 then writeln(f1,2)else writeln(f2,2);
 if (s mod 3)=0 then writeln(f1,3)else writeln(f2,3);
 k:=a[2]*10+a[3];
 if (k mod 4)=0 then writeln(f1,4)else writeln(f2,4);
 if (a[3]=0)or(a[3]=5) then writeln(f1,5)else writeln(f2,5);
 if ((a[3] mod 2)=0)and((s mod 3)=0) then writeln(f1,6)else writeln(f2,6);
 k:=a[1]*100+a[2]*10+a[3];
 if (k mod 8)=0 then writeln(f1,8)else writeln(f2,8);
 if (s mod 9)=0 then writeln(f1,9)else writeln(f2,9);
 if a[3]=0 then writeln(f1,10)else writeln(f2,10);
 if abs(sn-sc)mod 11=0 then writeln(f1,11)else writeln(f2,11);
 k:=a[2]*10+a[3];
 if ((s mod 3)=0)and((k mod 4)=0) then writeln(f1,12)else writeln(f2,12);
end.

uses wincrt;
var
   M : set of byte;
   i,n,x : byte;
 
begin
  for i:=1 to 20 do
      M := M + [i];
 
   writeln;
   writeln('Элементы, делящиеся на 6 без остатка : ');
   for i:=1 to 20 do
      if (i in M)and
         (i mod 6 = 0)
         then
            write(i,' ');
 
   writeln;
   writeln('Элементы, делящиеся на 3 без остатка : ');
   for i:=1 to 20 do
      if (i in M)and
         (i mod 3 = 0)
         then
            write(i,' ');
 
   writeln;
   writeln('Элементы, делящиеся на 2 без остатка : ');
   for i:=1 to 20 do
      if (i in M)and
         (i mod 2 = 0)
         then
            write(i,' ');
 
 
end.