Дано целое число X, найти первое простое число,которое больше числа X. Для решения задачи составить логическую функцию, которая проверяет является ли данное число простым.
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
writeln('Простое!');
end
else
writeln('Нет!');
end;
end.