neq.pl0

来自「为PL0编译器」· PL0 代码 · 共 11 行

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