5.txt

对pl0的功能扩充 += -= -- for else

var a,b,c,d;
begin
a:=50;
d:=0;
read b;
c:=a*b+(3+4);
write c;
if a<>b then d:=a+b;
else
d:=a-b;
write d;
if a>b
d:=a-b;
else 
d:=b-a;
write d;
end.