Cod sursa(job #147262)

Utilizator radupointMircea Radu-Viorel radupoint Data 2 martie 2008 18:51:42
Problema Algoritmul lui Euclid Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.3 kb
Raporteaza aceasta sursa 
program euclid2;
 var
    f:text;
    a,b,r:longint;
begin
 assign(f,'euclid2.in');
 reset(f);
  read(f,a,b);
 close(f);
  r:=a mod b;
   while r<>0 do
    begin
     a:=b;
     b:=r;
     r:=a mod b;
    end;
   assign(f,'euclid2.out');
   rewrite(f);
    write(f,b);
   close(f);
end.