我正在学习帕斯卡,我的代码没有编译......有人可以帮我吗?
我尝试了一些在线编译器,但它们都返回错误。
提前致谢!
PROCEDURE ProcSoma (A: INTEGER, SOMA: INTEGER);
BEGIN
SOMA:=SOMA+A;
A:=A+1;
END;
BEGIN
VAR I,HI,SOMA:INTEGER;
HI:=31;
SOMA:=0;
FOR I:=1 TO HI STEP 1 DO
IF (I MOD 2 = 1) THEN ProcSoma(ref I, ref SOMA)
ELSE ProcSoma(ref I, SOMA);
WRITELN(SOMA);
END.