Напишите программу на Паскале. Из элнментов данного массива W[1… 20]создать два…

VAR i: Integer; a, b: Array of Integer; W: Array [1… 20] of Integer; BEGIN SetLength (a, 1); SetLength (b, 1); For i: =1 to 20 do Read (W[i]); For i: =1 to 20 do begin If (W[i] > 0) then begin SetLength (a, Length (a)+1); a[Length (a) -1]: =W[i]; End; If (W[i] < 0) then begin SetLength (b, Length (b)+1); b[Length (b) -1]: =W[i]; End; End; Write ('0 > ['); For i: =1 to Length (a) -2 do Write (a[i],','); Writeln (a[Length (a) -1],']'); Write ('0 < ['); For i: =1 to Length (b) -2 do Write (b[i],','); Writeln (b[Length (b) -1],']'); END.