const n = 5;
a: array [l..n] of integer = (1, 2, 3, –1, –2);
var i: integer;
begin
for i := 2 to n do a[i] := a[i] · a[i — 1];
for i := 1 to n do write(a[i]: 3)
a(2) = a(2)·a(1) = 2·1 = 2
a(3) = a(3)·a(2) = 3·2 = 6
a(4) = a(4)·a(3) = –1·6 = –6
a(5) = a(5)·a(4) = –2·(–6) = 12
Работа второго цикла
Если мне не изменяет память :3 – значит три отступа справа
Выведет: 1 2 6 –6 12