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

Самое простое из того, что смог придумать. Перебираем числа до половины необходимого (больше нет смысла) (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.