Написать программу которая проверяет является ли целое число введённое пользователем...

Question

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

Answer 1

Вот) Модуль нужен, чтобы упростить проверку)
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.