program z12_15;
const n=5;
type tarr=array[1..n] of 1..5;
tset=set of 1..5;
var p,s,v:tarr;
m,mp,ms,mv:tset;
i:1..5;
procedure input(var x:tarr);
var i:byte;
begin
for i:=1 to n do x[i]:=1+random(5);
end;
procedure print(x:tarr);
var i:byte;
begin
for i:=1 to n do write(x[i]:3);
writeln;
end;
procedure setofmark(x:tarr;var m:tset);
var i:byte;
begin
m:=[];
for i:=1 to n do m:=m+[x[i]];
end;
procedure print_set(m:tset);
var i:1..5;
begin
for i:=5 downto 1 do
if i in m then write(i:3);
writeln;
end;
begin
randomize;
writeln('ioaiea Iao?iaa: ');
input(p);print(p);
writeln('ioaiea aana?eeia: ');
input(v);print(v);
writeln('ioaiea Neai?iaa: ');
input(s);print(s);
writeln('iii?anoai ioaiie Iao?iaa: ');
setofmark(p,mp);print_set(mp);
writeln('iii?anoai ioaiie Aana?eeia: ');
setofmark(p,mv);print_set(mv);
writeln('iii?anoai ioaiie Neai?iaa: ');
setofmark(p,ms);print_set(ms);
m:=ms-mp-mv;
writeln('?acoeuoao: ');
print_set(m);
readln;
end.