e.pl0

来自「编译实验的源程序代码 比较简单」· PL0 代码 · 共 12 行

PROGRAM EX01;
VAR B;
BEGIN
  READ(B);
  IF B=0 THEN
  BEGIN
  WRITE(0);
  END
  ELSE 
  WRITE(1);
END.