Submission #3634485

---

Source Code Expand

var
  x,y,i,j,n,max,k:longint;
  b:array[0..100000000] of boolean;
  a:array[0..100000000] of longint;
begin
  readln(a[1]);
  x:=1;
  max:=a[1];
  while a[x]<>0 do
  begin
    x:=x+1;
    readln(a[x]);
    if a[x]>max then max:=a[x];
  end;
  b[1]:=true;
  for i:=2 to trunc(sqrt(max)) do
  begin
    if b[i]=false then
    for j:=2 to max div i do b[i*j]:=true;
  end;
  for i:=1 to x-1 do
  begin
    j:=2;
    k:=a[i];
    while k<>1 do
    begin
      while k mod j=0 do begin k:=k div j;end;
      j:=j+1;
    end;
    writeln(j-1);
  end;
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result