Написать программу которая проверяет является ли целое число введённое пользователем простым рекомендуемый вид экрана во время работы программы приведён ниже даны введение выражающие полужирным шрифтом

Вопрос от пользователя: Евтихия

Написать программу которая проверяет является ли целое число введённое пользователем простым рекомендуемый вид экрана во время работы программы приведён ниже даны введение выражающие полужирным шрифтом

Ответ: Геннадьич

Вот) Модуль нужен, чтобы упростить проверку)

var

x, i: integer;

begin

readln (x);

x : = abs (x);

for i : = 2 to x — 1 do

if x mod i = 0 then

begin

writeln (‘No’);

exit;

end;

writeln (‘Yes’);

end.