4test(err).txt

来自「min_Pascal语言的语法」· 文本 代码 · 共 25 行

	const a=345,b=27;
	var x,y,g,m;
	procedure swap;
		var temp;
		begin
			temp:=x;
			x:=y;
			y:=temp;
		end;
	procedure mod;
		x:=xx/y*y;
	begin
		x:=a;
		y:=b;
		call mod;
		do
			begin
				call swap;
				call mod;
			end
		while x<>0 ;
		g=y;
		m:=a*b/g;
		write(g,m)
	end.