PROC callImport()
Fl := 0;
F2 := 0;
callWithParam Fl,10;
TPWrite "F1: "\Num:=Fl;
callWithParam1 \a:=F2,\b:=20;
TPWrite "F2:"\Num:=F2;
ENDPROC
PROC callWithParam(num a,num b)
a:=a+b;
ENDPROC
PROC callWithParam1(\num a,\num b)
a := a+b;
ENDPROC
PROC callImport()
Fl := 0;
F2 := 0;
callWithParam Fl,10;
TPWrite "F1: "\Num:=Fl;
callWithParam1 \a:=F2,\b:=20;
TPWrite "F2:"\Num:=F2;
ENDPROC
PROC callWithParam(num a,num b)
Fl:=a+b;
ENDPROC
PROC callWithParam1(\num a,\num b)
F2 := a+b;
ENDPROC