program nguyen_to;

uses crt;

var n:integer;

{---ham-nguyen-to---}

function ktnt(x:integer):boolean;

var r:integer;

begin

       ktnt:=false;

       for r:=2 to trunc(sqrt(x)) do

              if x mod r=0 then exit;

       ktnt:=true;

end;

{---Chuong-trinh-chinh---}

BEGIN

       clrscr;

       n:=100;

       while ktnt(n)=false do n:=n+1;

       writeln('So nguyen to nho nhat co 3 chu so la: ',n);

       n:=999;

       while ktnt(n)=false do n:=n-1;

       writeln('So nguyen to lon nhat co 3 chu so la: ',n);

       readln;

end.

Var a,b,c,m,s:longint;
 Function NT(a:longint):longint;
  Var s,c:longint;
    Begin
      s:=0;
      For c:=2 to Trunc(sqrt(a)) do
       If a mod c = 0 then
        Begin
          s:=1;
          Break;
        end;
    NT:=s;
  end;
 Begin
  For b:=100 to 999 do If NT(b)=0 then Break;
  writeln('be nhat',b);
  For b:=100 to 999 do If NT(b)=0 then m:=b;
  Writeln('lon nhat',m);
  readln;
end.

../Cho mình 5* nhé*/..