test2.pl

来自「编译课程设计」· PL 代码 · 共 7 行

var a,b,c;

begin
  read(a,b,c);
  if a>0 then write(b) else write(c);
  write(a,b,c);
end.