Pascal-программа Знайти, та вивести ** стандартний потік виведення, перше просте число,...

Question

Pascal-программа

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

Comments

В смысле в первое число в массиве или просто, когда вводишь числа с клавиатуры

---

Просто я не сильно розумію по українськи

Answer 1

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