Cod sursa(job #1417633)

Utilizator DrumeaVDrumea Vasile DrumeaV Data 10 aprilie 2015 18:18:04
Problema Invers modular Scor 50
Compilator fpc Status done
Runda Arhiva educationala Marime 0.51 kb
const
            f1='inversmodular.in';
            f2='inversmodular.out';
var
     a,b,x,y:longint;

procedure euclid(a,b:longint;var x,y:longint);
var x1,y1:longint;
 begin
   if b=0 then
    begin
     x:=1;
     y:=0;
    end
   else
    begin
     euclid(b,a mod b,x1,y1);
     x:=y1;
     y:=x1-((a div b)*y1);
    end;
 end;

begin
 assign(input,f1); reset(input);
 assign(output,f2); rewrite(output);
  readln(a,b);
   euclid(a,b,x,y);
  close(input);
  write(x);
  close(output);
end.