Ответ: // 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