Дано целое число X, найти первое простое число,которое больше числа X. Для решения задачи...

Question

Дано целое число X, найти первое простое число,которое больше числа X. Для решения задачи составить логическую функцию, которая проверяет является ли данное число простым.

Answer 1

var

i: integer;

begin

readln(i);

 if (i mod 2<>0) and (i mod 3<>0) and (i mod 5<>0) and (i mod 7<>0) then

  begin

   writeln('Простое!');

   end

  else

   begin

    writeln('Нет!');

   end;

end.