Program test_2013_1;
Var a,b,c:integer;
Begin
a:=4;b:=5;c:=6;
a:=b+c;b:=b-a;a:=a-b;
if a<0 then
if b>0 then c:=b+a
else c:=b-a;
if c>0 then writeln(‘Wish you success!’)
else writeln(‘Good luck to you!’)
End.
输出：Wish you sucess!