CHECK　POINT
＊配列

　　PROGRAM toi111(input,output);
　　VAR a,b,c,d : integer;
　　　PROCEDURE okikae;
　　　　BEGIN c:=a;a:=b;b:=c END;
　　　BEGIN READ(a,b);
　　　　IF a＜b THEN
　　　　　okikae;
　　　　REPEAT
　　　　　d:=a MOD b;a:=b;b:=d
　　　　UNTIL d=0;
　　　　WRITELN(a)
　　　END.
　これはａとｂの最大公約数を求めるプログラムです。
　１．まず初めに、READ文でa=6,b=9を読み込みます。
　２．次に、IF文でａとｂを比較するとａ＜ｂであるから、PROCEDURE okikae;に入ります。
　３．PROCEDURE okikae;で、ａとｂの値を交換します。
　４．次に、REPEAT文でd=3,a=6,b=3となります。d=0ではないので再びREPEAT文を行うと、 d=0,a=3,b=0となり、REPEAT文から抜けます。
　５．よって最終的に、ａとｂの最大公約数は３となります。

練習問題