Олимпиадная задача "Количество итераций (10-11 классы)"

[APEJl]

Здравствуйте, можете пожалуйста объяснить как решается такая задача
"Для определения вычислительной сложности программы в первую очередь нужно рассмотреть имеющиеся в ней циклы и определить количество итераций (повторений) каждого из этих циклов. Если циклы являются вложенными, то для определения вычислительной сложности количество итераций нужно перемножать, если циклы выполняются последовательно, то количество итераций необходимо суммировать.
Напишите программу, которая определяет суммарное количество итераций для некоторой комбинации циклов.
В первой строке ввода содержится одно целое число N (1 ≤ N ≤ 10) — количество циклов в программе. Далее следует 2·N строк, содержащих информацию о циклах в анализируемой программе. Каждая строка содержит либо строку вида "for x", где x – целое число в диапазоне от 2 до 1000, количество итераций, либо строку "end", обозначающую конец цикла. Гарантируется, что каждый for будет иметь соответствующий ему end и наоборот.
Вывести в первой строке одно целое число — суммарное количество итераций для анализируемой программы. Гарантируется, что результат не будет превышать 10^18.

Пример ввода 1
2
for 100
for 20
end
end

Пример вывода 1
2000

Пример ввода 2
2
for 100
end
for 20
end

Пример вывода 2
120"
Имеется правильное решение

uses sysutils;
var st:array[0..20]of int64;
 t,n,i:integer;
 s:string;
begin
 t:=0;
 readln(n);
 for i:=1 to 2*n do
 begin
 readln(s);
 if copy(s,1,3)='for' then
 begin
 inc(t);
 st[t]:=StrToInt(Copy(s,5,Length(s)-4)); 
 { для накопления произведения }
 inc(t);
 st[t]:=0; { для накопления суммы }
 end
 else {end}
 begin
 if st[t]=0 then
 st[t]:=1;
 st[t-1]:=st[t-1]*st[t]; 
 dec(t);
 st[t-1]:=st[t-1]+st[t];
 dec(t);
 end;
 end;
 writeln(st[0]);
end.

В самом коде я понимаю, что какая строка значит, что как делается, но сам бы я не додумался до такого решения, и вообще не понимаю как можно было прийти к такому решению, но оно правильное. можете пожалуйста объяснить как решаются подобные задачи, можно на примере этой. заранее огромное спасибо.

[ZX Spectrum-128]

http://www.twirpx.com/files/informat...ages/olympics/