- 266 名前：丁稚Pascal mailto:sage [02/03/29 09:57]
- program GCM(input,output);
var a,b,c:integer;
function a_gcm(x,y:integer):integer;
var r:integer;
begin
repeat
r:=x mod y;
x:=y;
y:=r;
until r=0;
a_gcm:=x;
end;
begin
writeln('自然数を二つ入力しる！');
readln(a,b);
while (a<0) or (b<0) do begin
writeln('自然数っつただろうが(ﾟДﾟ)ｺﾞﾙｧ!!');
readln(a,b);
end;
if a<b then begin
c:=b;
b:=a;
a:=c;
end;
writeln('最大公約数＝',a_gcm(a,b));
end.
