program delitel;
type
univ=array [1..5,1..5] of integer;
Var
a:univ;
i,j,x:integer;
begin
writeln ('Введите 4 элемента 1 множества');
for i:=1 to 4 do
begin
readln(x);
a[i+1,1]:=x;
end;
writeln ('Введите 4 элемента 2 множества');
for i:=1 to 4 do
begin
readln(x);
a[1,i+1]:=x;
end;
for i:=2 to 5 do
for j:=2 to 5 do
if a[1,j] mod a[i,1]=0 then a[i,j]:=1 else a[i,j]:=0;
for i:=2 to 5 do
begin
for j:=2 to 5 do write (a[i,j]);
writeln;
end;
readln;
end.