3.txt

来自「C语言编写的PLO源代码」· 文本 代码 · 共 18 行

const a=10;
var d;
procedure p;  	
var x;
begin
      	read(x); 
	d:=x;     	
      	while d#0 do
           	begin 
		write(d);
		d:=d-1;
          	end;
end;

begin
	call p;
end.