程序如下：
var i:integer;
begin
for i:=1 to 4 do
    begin
    if ord(i=2)+ord(i=4)+ord(i=3)+ord(i<>4)=1 then
       begin
       write (i);
       if i=2 then write ('a')
          else if i=4 then write ('b')
               else if i=3 then write ('c')
                    else write ('d');
       writeln;
       end;
    end;
end.

最后得到两组解。