Pascal-программа знайти, та вивести на стандартний потік виведення, перше просте число, більше за число n (n вводиться з стандартного потоку введення).

Var n,i,j,k:integer;
begin
write('n = '); readln(n);
i:=n; k:=1;
while k>0 do
 begin
 i:=i+1; k:=0;
 for j:=2 to round(sqrt(i)) do
  if i mod j = 0 then k:=k+1;
 end;
writeln(i);
end.

Пример:
n = 200
211