[Pascal] Простое

[Stalin2019]

Что-то плохо протестировал, иногда работает, иногда - нет.
Что не так сделал?

uses crt;
var
   i,j,k,m:integer;
begin
write('Введите простое число: ');
readln(m);
for j:=(m+1) to 2*m do
 begin
   k := 0;
   for i := 2 to round(sqrt(j)) do
   begin
      if j mod i=0 then
         k := 1;
         Break;
   end;
   if k = 0 then
   begin
      write(j);
      Break;
   end;
end;
end.

[p51x]

      if j mod i=0 then
         k := 1;
         Break;

Этот брек вне условия..

[Stalin2019]

Все равно не работает

[Serge_Bliznykov]

Сообщение от Stalin2019

Все равно не работает

с чего это Вы решили?
какое число ввели?

вроде работает: https://ideone.com/Ha3nMm

program ideone;
var
   i,j,k,m:integer;
begin
write('Введите простое число: ');
readln(m);
for j:=(m+1) to 2*m do
 begin
   k := 0;
   for i := 2 to round(sqrt(j)) do
   begin
      if j mod i=0 then begin
         k := 1;
         Break;
      end   
   end;
   if k = 0 then
   begin
      writeln(j);
      Break;
   end;
end;
end.

[Stalin2019]

Не понял.Почему "Эндов"больше, чем "Бегинов" ?

[Serge_Bliznykov]

Сообщение от Stalin2019

Не понял.Почему "Эндов"больше, чем "Бегинов" ?

потому что Вы не все "бегины" увидели.
смотрите внимательно:

Сообщение от Serge_Bliznykov

if j mod i=0 then begin
         k := 1;
         Break;
      end

[Stalin2019]

Спасибо всем!

[p51x]

А мне вот интересно, что вы после моего поста исправили и у вас не работало?

[Stalin2019]

Честно говоря уже не помню, что делал