5.txt

来自「对pl0的功能扩充 += -= -- for else」· 文本 代码 · 共 19 行

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.