Cod sursa(job #146783)

Utilizator tiger_10Dutescu Radu Alin tiger_10 Data 2 martie 2008 09:10:38
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.3 kb
Raporteaza aceasta sursa 
var a,b,r,aux:longint;
    f,g:text;
begin
 assign(f,'cmmdc.in');
 reset(f);
 read(f,a);
 readln(f,b);
 close(f);
 if b>a then begin
  aux:=a;
  a:=b;
  b:=aux;
  end;
 repeat
  r:=a mod b;
  a:=b;
  b:=r;
 until r=0;
 assign(g,'cmmdc.out');
 rewrite(g);
 writeln(g,a);
 close(g);
end.