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.