7.txt

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

const a=10;

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


begin
	call p;
end.