PRIME1195 Pascal

const vc=1000000000;
var     a:array[1..1000000] of longint;
        m,n,min,res,d:longint;

procedure nhap;
begin
        read(m,n);
end;

procedure tim_uoc;
var i:longint;
begin
        d:=0;
        for i:=1 to trunc(sqrt(m)) do
                if m mod i = 0 then
                begin
                        inc(d);
                        a[d]:=i;
                        inc(d);
                        a[d]:=m div i;
                end;
end;

function ktnt(x:longint):boolean;
var i:longint;
begin
        if x<=1 then exit(false);
        for i:=2 to trunc(sqrt(x)) do
                if x mod i = 0 then exit(false);
        exit(true);
end;

procedure giai;
var     i:longint;
begin
        if m=1 then
        begin
                write(-1);
                exit;
        end; 
        min:=vc; res:=-1;
        for i:=1 to d do
                if ktnt(a[i])=true then
                        if(abs(a[i]-n)<min) then
                        begin
                                min:=abs(a[i]-n);
                        end;

         if (ktnt(n-min)=true) and (m mod (n-min)=0) then
                write(n-min,' ');
        if (ktnt(n+min)=true) and (m mod (n+min)=0) then
                write(n+min);
end;


begin
        assign(input,'prime1195.inp');reset(input);
        assign(output,'prime1195.out');rewrite(output);
        nhap;
        tim_uoc;
        giai;
end.