测试结果2: 测试结果正确

测试结果3: 测试结果错误.错误结果为:86

正确结果应为:81

测试结果4: 测试结果正确

测试结果5: 测试结果正确

测试结果6: 测试结果正确

测试结果7: 测试结果正确

测试结果8: 测试结果正确

测试结果9: 测试结果正确

测试结果10: 测试结果正确

提交代码： Program P227；

Type

Tn = 0..100；

Var

a1, a2, a3, a4 : Tn；

num : Integer；

////////////////////////////////

Procedure Init；

Begin

Read(a1, a2, a3, a4)；

End；

////////////////////////////////

Procedure Work；

Begin

If a1 > a4

Then

Begin

Dec(a1, a4)；

Inc(num, a4)；

a4 := 0

End

Else

Begin

Dec(a4, a1)；

Inc(num, a1)；

a1 := 0

End；

If a2 > a3

Then

Begin

Dec(a2, a3)；

Inc(num, a3)；

a3 := 0

End

Else

Begin

Dec(a3, a2)；

Inc(num, a2)；

a2 := 0

End；

While (a1 >= 1) And (a2 >= 2) Do

Begin

Dec(a1)；

Dec(a2, 2)；

Inc(num)

End；

While (a1 >= 2) And (a3 >= 1) Do

Begin

Dec(a1, 2)；

Dec(a2)；

Inc(num)

End；

While (a1 >= 3) And (a2 >= 1) Do

Begin

Dec(a1, 3)；

Dec(a2)；

Inc(num)

End；

While a1 >= 5 Do

Begin

Dec(a1, 5)；

Inc(num)

End

End；

////////////////////////////////

Procedure Outit；

Begin

Write(num)

End；

////////////////////////////////

Begin

Init；

Work；

Outit

End.