program f;<br />
const  n=10;la=-10;ha=21;<br />
       m=8;lb=-15;hb=31;<br />
       k=6;lc=-20;hc=41;<br />
       type myarray=array[1..n] of integer;<br />
       var a,b,c:myarray;<br />
        i,j:integer;  <br />     d:integer;<br />
       q:integer;      <br />       l:integer;<br />
procedure solve(qx,qy,qz):integer;<br />
          var qq:integer;<br />
          x,y,z:myarray;<br />
          var m:myarray);<br />
begin<br />
qz:=0;<br />
for i:=1 to qx  do begin<br />
     j:=1;<br />
     while (j<=qy) and(x[i]<>y[j]) do inc(j);<br />
     if j<=qy then l:=l else l:=qz+1;<br />
     while(l<=qz)and(x[i]<>z[l]) do inc(l);<br />
     if l<=qz then begin<br />
     inc (qq);<br />
     m[qq]:=x[i];<br />
     end;<br />
     end;<br />
     end;<br />
     begin<br />

     writeln('a');<br />


     writeln('b');<br />

     writeln('c');<br />

     solve(n,m,k,q,a,b,c,d);<br />
     writeln('celie i v  a ,i v b,i v c');<br />

     readln;<br />
     end.<br />