Написать пояснения к каждой строке задачки Program z3; var i,j,s: word;

Program z3; // записываем заглавие программки

var i,j,s: word; // перечисляем переменные и определяем их тип

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

for i := 1 to 10000 do  // организуем цикл от 1 до 10000

begin // начало цикла

s := 0; // задаем начальное значение для переменной s

for j:=1 to i div 2 do // организуем цикл от 1 до половины значения переменной i

if i mod j = 0 // проверяем, если условие правильно, то

then s := s+j; // вычисляем по формуле

if s = i // проверяем, если условие истинно, то

then write(i, );  // выводим на экран

end; // конец цикла

writeln; // переход на новейшую строчку для вывода

readln; // переход на новейшую строку для ввода

end. // конец программки