Написать программу которая напечатает 2-х мерный массив 4*4 из целых сл. Чисел от -12…

Program asd; USES crt; Const n=4; var A: array [1… n, 1… n] of integer; i,j,s: integer; BEGINclrscr; Writeln ('Massiv 4x4: '); for i: =1 to n do begin for j: =1 to n do begin A[i,j]: =random (12) -6; Write (',A[i,j]: 2); end; Writeln; end; Writeln ('Otvet: '); For i: =1 to n do begin for j: =1 to n do begin S: =A[i,j]; if A[i,j]<0 then S: =A[i,j]*S; Write (',S: 2) end; Writeln; end; END.