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

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