fork download
copy 
  1. program ideone;
  2. //uses crt;
  3. var
  4.    i,j,k,m:integer;
  5. begin
  6. write('Введите простое число: ');
  7. readln(m);
  8. for j:=(m+1) to 2*m do
  9.  begin
  10.    k := 0;
  11.    for i := 2 to round(sqrt(j)) do
  12.    begin
  13.       if j mod i=0 then begin
  14.          k := 1;
  15.          Break;
  16.       end   
  17.    end;
  18.    if k = 0 then
  19.    begin
  20.       writeln(j);
  21.       Break;
  22.    end;
  23. end;
  24. end.
Success #stdin #stdout 0s 4544KB
comments (?)
stdin
copy 
23
stdout
copy 
Введите простое число: 29
https://ideone.com/Ha3nMm
language:
Pascal (fpc 3.0.4)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!