Дз по информатике на pascal

var i: integer;A: array [1..4] of integer = (0, -1, 7, 12);begin for i := 1 to 4 do writeln('A[', i, '] =', A[i]: 3)end.