program ngto;

uses crt;

var n:integer;

{---chuong-trinh-con---}

function ktnt(k:integer):boolean;

var r:integer;

begin

       ktnt:=false;

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

              if k mod r=0 then exit;

       ktnt:=true;

end;

{---chuong-trinh-chinh---}

BEGIN

       clrscr;

       write('Nhap n: ');  readln(n);

       if n<=2 then write('Khong co')

       else 

              begin

                     n:=n-1;

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

                     write(n);

              end;

       readln;

end.

Program Nguyen_to;

Var n,i:integer;

Function NT(n:integer):Boolean;

Var ok: Boolean;

i: integer;

Begin

ok:=true;

for i:=2 to n-1 do

if (n mod i)= 0 then ok:=ok and false;

if n < 2 then NT:=false else NT:=ok;

End;

Begin

Write('Nhap n: ');Readln(n);

i:=n;

Repeat i:=i+1; 

Until NT(i);

Write('So nguyen to nho nhat lon hon ',n, 'la: ',i);

Readln

End.