Program PGCD_Diff;
Var a, b : Integer;
Begin
Repeat
Writeln ('Saisir deux entiers >0 ');
Readln (a, b);
Until(a>0) and (b>0);
While a<>b Do
If a>b Then a:= a-b
Else b:= b-a ;
Writeln ('PGCD =', a);
End.
UHJvZ3JhbSBQR0NEX0RpZmY7ClZhciBhLCBiIDogSW50ZWdlcjsKQmVnaW4KUmVwZWF0CldyaXRlbG4gKCdTYWlzaXIgZGV1eCBlbnRpZXJzID4wICcpOwpSZWFkbG4gKGEsIGIpOwpVbnRpbChhPjApIGFuZCAoYj4wKTsKV2hpbGUgYTw+YiBEbwpJZiBhPmIgVGhlbiBhOj0gYS1iCkVsc2UgYjo9IGItYSA7CldyaXRlbG4gKCdQR0NEID0nLCBhKTsKRW5kLg==