逻辑判断(编程）——Pascal，急急急

简单来说是群搜，比如说比赛，那么名次群搜。
ord(true)=1
ord(false)=0;比如
ord（1=1）=1
ord(1=2)=0
举个例子
【问题】5家工厂的产品在一次评比中分获1，2，3，4，5，在公布结果前，已知E

厂产品肯定不是第二、三名，五厂代表猜测评比结果，

A厂的代表说：E厂一定能获得第一名。

B厂的代表说：我厂的产品可能获第二名。

C厂的代表说：A厂的产品质量最次。

D厂的代表说：C厂的产品不是最好的。

E厂的代表说：D厂的产品会获得第一名。

公布结果后，证明只有产品获第一名和第二名的两个厂的代表猜对了。

求5个厂产品各获第几名。

【答案】 A B C D E

5 2 1 3 4

【参考程序】

var a,b,c,d,e:byte;

begin

for a:=1 to 5 do

for b:=1 to 5 do

for c:=1 to 5 do

for d:=1 to 5 do begin

e:=15-a-b-c-d;

if (e<>2) and (e<>3) and (a*b*c*d*e=120) then

if(ord(e=1)+ord(b=2)+or