fa1.tmp

来自「PL0 C语言版本 //A.2 C 版 本 /*编译和运行环境: *」· TMP 代码 · 共 18 行

Iput pl/0 file ?n
0 var a,b,c;

1 begin

2  a:=88;

4  read(b);

6  if b>0 then c:=a+b*(3+b);

18  else c:=a;

18  write(c)

20 end.