swap.pl0

1. PL/0 语言介绍 ●PL/0 程序设计语言是一个较简单的语言

   PROGRAM SSWAP; 
   VAR  
   A,B:INTEGER; 
   FUNCTION SWAP(VAR C,D:INTEGER):INTEGER; 
   VAR 
  TEMP:INTEGER; 
   BEGIN 
    TEMP:=C; 
    C:=D; 
    D:=TEMP; 
  END;
  BEGIN
    A:=3;
    B:=4;
    SWAP(A,B);
    WRITE(A,B);
  END.