program ntonhonhat;
uses crt;
var n,i,l:integer;
kt:boolean;
begin
clrscr;
write('Nhap n: ');
readln(n);
i:=n;
kt:=false;
while kt=false do
begin
inc(i);
kt:=true;
for l:=2 to trunc(sqrt(i)) do
if i mod l=0 then kt:=false;
end;
write('SNT nho nhat sau ',n,' la: ',i);
readln
end.