Pascal. Задача 8-18

var
  i, D, N : integer;
begin
  Write('Введите натуральное число: ');
  Readln(N);
  D := 0;
  for i := 2 to Round(sqrt(N)) + 1 do
    if N mod i = 0 then begin
      D := i;
      break;
    end;
  if D = 0 then D := N;
  Writeln('Наименьший делитель: ', D);
end.