Get_next_prime_number

## //определение следующего простого числа, после данного
var n := ReadInteger;
var cnt := 0;
while true do
  begin
    n += 1;
    for var i := 1 to n do if (n mod i = 0) then cnt += 1;
    if (cnt = 2) then
      begin
        Print(n);
        break
      end;
    cnt := 0;
  end;
///////////////////////////////
## //функция определения следующего простого числа, после данного
function get_next_prime(n: integer): integer;
begin
  var cnt := 0;
  while true do
  begin
    n += 1;
    for var i := 1 to n do if (n mod i = 0) then cnt += 1;
    if (cnt = 2) then
      begin
        Print(n);
        break
      end;
    cnt := 0;
  end;
end;
//
var n := ReadInteger;
get_next_prime(7)