pascal 代码

 var
n,i,t:longint;
begin
while not eof do begin
 readln(n);
 t:=0;
  for i:=2 to n-1 do begin
    if n mod i=0
     then begin
     t:=1;
     break;
     end;
     end;
     if (t=0) and (n>1)then writeln('It''s a prime!!!')
       else if (n=0)and(n=1) then writeln('It''s not a prime!!!')
         else writeln('It''s not a prime!!!');
end;
end.

TLE 5(s);

请各位大师帮助！谢谢！！！ 

試除鐵定TLE