4.txt

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

const m = 7, n = 85;
var x, y, z;

procedure multiply;
var a, b;
begin
	a := x; 
	b := y; 
	z := 0;
	if odd b then z := z + a+b
end;

begin
	x := m; 
	y := n;
	call multiply;
	write(-z)
end.