Минимальный делитель (Pascal)

Минимальный делитель

Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000).

Входные данные
Вводится натуральное число x.

Выходные данные
Выведите наименьший делитель числа x, отличный от 1.

Исходный код на языке Pascal
var
  a, b, i: integer;

begin
  read(a);
  for i := 2 to a do
    if a mod i = 0 then
    begin
      write(i);
      break;
    end;
end.