02/03/29 11:38
書籍に載っていた模範解答です。
program gcm(input,output);
var
a,b,r : integer;
begin
writeln('Enter a:'); readln(a);
writeln('Enter b:'); readln(b);
if (a>0) and (b>0)
then begin
repeat
r:=a mod b ; a:=b ; b:=r ;
until r=0;
writeln('gcm = ',a)
end
else writeln('ERROR: a and b must be positive.')
end.