Program z15; Var i, sum, b, test_1, test_2:integer; a: array [1..5] of integer;Begin for i:= 1 to 5 do begin write('Число ', i,' = '); readln(a[i]); end; test_1:= 0; test_2:= 0; sum:= 0; writeln; for i:=1 to 3 do sum:= sum + a[i]; if (sum > 0) then for i:= 1 to 5 do begin test_1:= 1; b:= a[i] * -1; writeln('Число ', i,' = ', b); end; if ((a[4] < 0) and (a[5] < 0)) then begin test_2:= 1; write('Произведение двух последних чисел = ', a[4]*a[5]); end; writeln; if ((test_1 = 1) and (test_2 = 2)) then for i:=1 to 5 do writeln('Число ', i,' = ', a[i]) else for i:=1 to 5 do writeln('Число ', i,' = ', a[i]*2) End.