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

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