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

var i: integer;A: array[1..20] of integer;begin for i := 1 to 20 do begin A[i] := i * i; writeln('A(', i: 2, ') = ', A[i]) endend.