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

Ответ учителя по предмету Информатика

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

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.