z-pins

nisam posvetio puno vremena zadatku,ali mi se čini nekako laganim zato molim pomoć.evo mojeg koda:

program z;
var n,k,i,j,r,s,rez:longint;
begin
readln (n,k);
for i:=2 to k do begin
for j:=2 to k do begin
if (j*i=n) then  begin
r:=i;
s:=j;
break;
end;
end;
if (j*i=n) then  begin
r:=i;
s:=j;
break;
end;
end;
rez:=(r+1)*(s+1);
if (n div r=k) then writeln (rez-4)
else
writeln ((r+1)*(s+1));
readln;
end.
 

na nekima javlja TLE a na nekima Exit code is not zero,mislim da nigdje nema WA

probaj da stavis sve int64, osim i,j koje ostavi longint

opet nevalja
a jel dobra ideja ili nevalja

još koja ideja