e111.pl0

来自「1. PL/0 语言介绍 ●PL/0 程序设计语言是一个较简单的语言」· PL0 代码 · 共 11 行

PROGRAM EX01;
VAR A,B:INTEGER;
BEGIN
  B:=1;
  READ(A);
  IF A<>0 THEN
  WRITE(A)
  ELSE
  WRITE(B);
END.