Задача в Паскале 2/Есть решение, нужно объяснение

Question

Привет. Помогите пожалуйста с объяснением.. . перепод будет по полной спрашивать каждую строчку. 
 
<img title="Задача в Паскале 2/Есть решение, нужно объяснение" src="//otvet.imgsmail.ru/download/147fa16152a56d89d8d07c6e53309dd2_i-2.jpg" > 
 
Решение 
 
const n=20; 
 
var 
xx:array [1..n] of real; 
nn:array [1..n] of integer; 
i:integer; 
sum1,sum2:real; 
 
begin 
 writeln ('chlen posledovatel`nostii n1..n20'); 
 for i:=1 to n do 
 readln (nn); 
 writeln ('chlen posledovatel`nostii x1..x20'); 
 for i:=1 to n do 
 readln (xx); 
sum1:=0; 
sum2:=0; 
 
for i:=1 to n do 
begin 
 sum1:=sum1+nn*xx; 
 sum2:=sum2+nn; 
end; 
 
writeln('Rezultat = ',(sum1/sum2):0:5); 
readln; 
end.

Павел Тюрькин · Accepted Answer

cоnst n=20; -Объявляем константу 
 
var -начало описания переменных 
xx:array [1..n] of real; -описываем масив до константы типа реал 
nn:array [1..n] of integer; - типа шнтежер 
i:integer; - переменная типа интежер 
sum1,sum2:real; -переменные типа реал 
 
begin - начало программы 
 writeln ('chlen posledovatel`nostii n1..n20'); - печатаем то что в кавычках 
 for i:=1 to n do - организуем цикл от 1 до n 
 readln (nn); - запрашиваем значение в переменную nn 
 writeln ('chlen posledovatel`nostii x1..x20'); - печатаем то что в кавычках 
 for i:=1 to n do - организуем цикл от 1 до n 
 readln (xx); - запрашиваем значение в переменную xx 
sum1:=0; - присваиваем sum1 значение 0 
sum2:=0; - присваиваем sum2 значение 0 
 
for i:=1 to n do - организуем цикл от 1 до n 
begin -начинаем цикл 
 sum1:=sum1+nn*xx; помещаем в переменную sum1 значение sum1 плюс nn умноженное на xx 
 sum2:=sum2+nn; помещаем в переменную sum2 значение sum2 плюс nn 
end; конец цикла 
 
writeln('Rezultat = ',(sum1/sum2):0:5); печатаем значение деления sum1 на sum2 
readln; - ждем нажатие ентер 
end. - конец программы

Ирина . · Answer

объявляем переменные и константы и массивы различных типов данных 
вводим члены последовательности 
вычисляем суммы и произведения членов 
выводим рез-т