Ответ: // PascalABC.NET 3.1, сборка 1256 от 21.06.2016var  i,x:integer;  found:boolean;begin  Read(x);  found:=false;  for i:=2 to x div 2 do    if x mod i=0 then begin Write(i); found:=true; break end;  if not found then Write(x)end.

Ответ: //Pascal ABC.NET 3.1 сборка 1256Var x,i:integer;beginreadln(x);i:=2;while x mod i<>0 doi:=i+1;writeln(i);end.Пример ввода:15Пример вывода:3