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