Cod sursa(job #152405)

Utilizator DonPushmeMilitaru Adrian DonPushme Data 9 martie 2008 14:03:53
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.33 kb
Raporteaza aceasta sursa 
var a,b,min1,max1:longint;

begin
assign(input,'euclid2.in');
assign(output,'euclid2.out');
reset(input);
rewrite(output);

readln(a);
readln(b);

while a<>b do
      begin
      if a>b then a:=a-b
             else b:=b-a;
      end;

if a=1 then write(0)
       else write(a);

close(input);
close(output);

end.