Обьясните, как и что выполняется в этом коде: var s, n: integer; begin s : = 2; for n : = 2 to 5 do s : = s + n*2; writeln(s); end.

Программа выводит число 30, кароче, в начале программы для переменной s мы присваиваем число 2, затем крутим цикл 3 раза и с каждой прокруткой присваиваем переменной s выражение s+n*2
Например вот работа цикла:
1-й оборот: s = 2 + 2*2 =6
2-й оборот: s = 6 + 3*2 = 12
3-й : s = 12 + 4*2 = 20
4-й: s = 20 + 5*2 = 30
И в конце выводим результат s.
Объяснил возможно коряво но попробуй понять.

ЦЕЛЬ ПРОЕКТИРОВАНИЯ ПРОГРАММЫ:  

Автоматизация расчетов материалов, необходимых для выпол-нения ремонта в доме или квартире.  

НАЗНАЧЕНИЕ ПРОГРАММЫ:  

Расчет количества рулонов обоев для указанной комнаты.  

ОБЛАСТЬ ПРИМЕНЕНИЯ ПРОГРАММЫ:  

Программа может быть использована при ремонте комнаты, ко-гда надо знать, сколько надо купить рулонов обоев.  

ВВОД  

Вводится высота от пола до потолка, длина большей стены, длина меньшей стены, ширина двери, высота двери, ширина оконного проема, высота оконного проема, длина руло-на(const1) и ширина рулона(const2).  

ВЫВОД  

Выводится количество рулонов n

Объяснение:

program z1;

var a:array [1..100,1..100] of integer;

b:array [1..100] of integer;

n,m,i,j,s:integer;

begin

write ('Введите количество строк (n<=100) ');

read (n);

write ('Введите количество столбцов (m<=100) ');

read (m);

writeln ('Массив А');

for i:= 1 to n do

begin

for j:=1 to m do

begin

a[i,j]:=Random(19)-9;

write(a[i,j]:4)

end;

writeln

end;

for j:= 1 to m do

begin

s:=0;

for i:=1 to n do if  (a[i,j]>0) and (a[i,j] mod 2 = 0) then s:=s+a[i,j];

b[j]:=s

end;

writeln ('Массив B');

for j:= 1 to m do write (b[j]:4)

end.