reciproc.pas

来自「袖珍型的pascal编译器」· PAS 代码 · 共 28 行

program recreciprocatest;
var	c:char;

procedure ceva(i:integer);

procedure altceva(j:integer);


{alceva}
begin
	if j < -5 then
		print(j)
	else 
		begin
		print(j);
		ceva(j - 1);
		end;
end;

{ceva}
begin
altceva (i-1);
end;

begin
	ceva(10);
	read(c);
end.