🚀 go-pugleaf

 Pascal$B$N<jB3$-$d4X?t$N%Q%i%a!<%?$K!VCV49%Q%i%a!<%?!W(J
$B$H$$$&$b$N$r;HMQ$7$?$$$H;W$C$F$$$^$9!#$3$l$O!"%Q%i%a!<(J
$B%?$H$7$FJQ?t$NL>A0$rEO$7!"<jB3$-$NCf$G7A<0>e$N%Q%i(J
$B%a!<%?$,$=$NJQ?t$NL>A0$KCV$-49$($i$l$F$U$k$^$&$H$$$&(J
$B$b$N$G$9!#(J

procedure Ex(subst k, m: Integer; subst x, y: Real);
begin
  for k := 1 to m do x := y;
end;

$B$KBP$7$F!"(J

Ex(i, 1, p, 1) 
$B$O!"(J
p := 1 

Ex(i, 2, a[i], a[i] + b[i])
$B$O!"(J
for i := 1 to 2 do a[i] := a[i] + b[i]

 $B!V(Jsubst$B!W$H$$$&$N$r2>Dj$7$F$$$k$N$G$9$,!"<B:]$K$O$G$-(J
$B$^$;$s!#2?$H$+9)IW$7$F(JPascal$B$G<B8=$9$kJ}K!$O$"$k$N(J
$B$G$7$g$&$+!#$=$l$H$bL5M}$G$7$g$&$+!#(J

 ALGOL$B$O$h$/CN$i$J$$$N$G$9$,!"L>A08F$S=P$7%Q%i%a!<(J
$B%?$H$$$&$N$,$"$k$=$&$G$9!#$J$<(JPascal$B$K$O$J$$$N$G$7$g$&(J
$B$+!#(J

-- 
$BIMED(J $B>;9((J   hamada@hiroshima-cdas.or.jp