//Simple script computing jacobi symbol //author: Michal Pilipczuk //XIV Secondary School, Warsaw, Poland program jakobi; uses bignumber; var hand_in:text; a,b,a2,b2:string; wyn:longint; begin initialize; assign(hand_in,'/home/k03_a/michaj/.homepage/jacobi.in'); reset(hand_in); readln(hand_in,a); readln(hand_in,b); close(hand_in); if ((not(sprawdz(a))) or (not(sprawdz(b)))) then writeln('WRONG INPUT') else begin a2:=zmienw2(a,10); b2:=zmienw2(b,10); if b2[length(b2)]='0' then writeln('WRONG INPUT') else begin wyn:=jacobi(a2,b2); writeln(wyn); end; end; end.