Question

Дан фрагмент программы.Что появится на экране?
var
S:=0;
for i:=1 to 4 do
begin
A[i]:=i^2-1
S:=s+A[i];
End;
writeln(s);

Answer 1

Трассировочная таблица:
А1 0  
А2      3
А3           8
А4                  15
S 0     3    11    26
I   1     2   3       4
Ответ:26