Поясните каждую строчку program odin; var i, n, k, j:integer; begin read (n) ; i:=1; for i:=2 to n do begin k:=0; for j:=2 to i-1 do if i mod j=0 then k:=1; if (k=0) and (n mod i=0) then writeln (i) ; end; end.

Program odin; - название программы

var i, n, k, j : integer; - введение переменных i, n, k, j типа integer (целое число)

begin - начало программы

i:=1; - присвоить переменной i значение 1

For i:=2 to n do - цикл в котором переменной i присваиваются значения от 2 до n (i = 2, 3, 5 ... n)

begin - начало цикла for

k:=0; - k присваивается 0

For j:=2 to i-1 do цикл в котором переменной j присваиваются значения от 2 до i-1

if i mod j = 0 then k:=1; - если остаток от деления переменной i yf переменную j равно 0, то присвоить переменной k значение 0

if (k=0) and (n mod i = 0) then writeln (i) ; - если переменная k имеет значение 0 и остаток от деления переменной n на переменную i равно 0, то вывести на экран значение переменной i

end; - конец цикла for

end. - конец программы