e01.pl0

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

var a,b,c;
begin
 a:=88;
 read(b);
 if b>0 then c:=a+b*(3+b);
 else c:=a;
 write(c)
end.