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

// pascalabc.net 3.1, сборка 1256 от 21.06.2016 var   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 сборка 1256 var   x,i: integer; begin readln(x); i: =2; while x mod i< > 0 do i: =i+1; writeln(i); end. пример ввода: 15 пример вывода: 3

const

  n=10;  

var

  a: array[1..n] of integer;

  i,x,k,j,s: integer;  

begin

randomize:

for i: =1 to n do a[i]: =random(255);     {формируем случайный массив}

for i: =1 to n do write(a[i],' ');                         {выводим этот массив его на экран}

writeln('x='); read(x);                                                 {вводим x, в программе}

for i: =1 to n do if x=a[i]                     {если х=a[i] тогда}

then for j: =i to n do                                                  {начинаем новый цикл с i до n}

              s: =s+a[j];                                                                 {вычисляем сумму}  

writeln(s);                                        

end;

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.