циклы в Паскале

[loloverg]

Нужно решить 2 задачки циклами в Паскале
1)Дано натуральное n. Найти суму цифр.
2)Дано простое число n.найти следующее простое число.

[DoDge_VipeR]

=I=

var s,n:integer;
begin
readln(n);
s:=0;
while n<>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
writeln(s);
readln;
end.

=II=

 var k:Integer;
function isPrime(X: word): boolean;
var
i: integer;
Begin
     isPrime:=false;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;

     isPrime:=true;
End;
begin
  Readln(k);
  k:=k+1;
  while not isPrime(k) do
  k:=k+1;
  Writeln(k);
  readln;

end.

[loloverg]

спасибо большоэ
буду дуже благодарен если ище блок схеми поможете(

[Chudo4258]

Дано простое число n.найти следующее простое число.

program Project2;
var i,n:integer;
function Pr(x:integer):boolean;
begin
Pr:=true;
 for i:=2 to x-1 do
  if x mod i = 0 then
                   begin
                    Pr:=false;
                    exit;
                   end;
end;
begin
readln(n);
inc(n);
while not(Pr(n)) do
 inc(n);
writeln(n);
readln
end.

[Serge_Bliznykov]

Chudo4258
плохо..
1) число 2 по Вашему алгоритму не простое?!
а единица — простое?
Это не так!

2) зачем цикл крутить до x-1,
когда достаточно до Trunc(sqrt(N)) ?

3) а если x будет отрицательное, что Выдаст программа? следующее отрицательное простое число? Так таких не бывает!

____________________
DoDge_VipeR
функция определения простого числа остроумная!
но вместо Word я бы всё же рекомендовал что-нибудь более "вместительное" (ну и плюс проверка на положительность!, разумеется!):

function isPrime(X: longint): boolean;
var
  i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
    ..... дальше по коду...