test1.pl

来自「pl0的扩展编译器」· PL 代码 · 共 15 行

const a=-4,b=-27,c=8.9,d="asdflj",e='x';

var x3,x54,x33,y:integer;
g:real;
function swap(a:integer;b:integer):real;
procedure mod(i,h:integer;s:char);
  
	var add:char;
               begin
 	   if h>i
	       then
	           i:=i+1
	  else
	       h:=i     
	   end.