program kaito;
uses crt;
var n, i, k, m: longint;
begin
clrscr;
write('Nhap n: '); readln(n);
i:=n;
while (i>=n) do begin
m:=0;
for k:=1 to i do begin
if (i mod k=0) then inc(m);
end;
if (m=2) then begin
write('So can tim: ',i);
break;
end;
inc(i);
end;
readln
end.
CHÚC BẠN HỌC TỐT!!!