Составить программу определяющую является ли число простым

Самое простое из того, что смог придумать. Перебираем числа до половины необходимого (больше нет смысла) (for i := 2 to number div 2 do) и ищем есть ли делители (number mod i = 0). Выводим сообщение.

var
  number, i : integer;
begin
  write(Число: );
  readln(number);
  for i := 2 to number div 2 do
    if number mod i = 0 then
    begin
      writeln(Число не является простым, оно делится, как минимум, на , i);
      Exit;
    end;
  writeln(Число является простым);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.