Паскаль: с для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. если произведение этих чисел положительно, то выведите утроенное значение каждого числа. если сумма первого и третьего чисел отрицательна, то выведите эти два числа и их сумму. если выполняются одновременно два перечисленных выше условия, то выведите четыре числа без изменения. иначе, выведите сумму этих четырех чисел, уменьшенную в два раза. составьте соответствующие отладочные примеры и проверьте работу каждой программы.
program zadacha_1;
var n1,n2,n3,n4:integer //Здесь храним значение 4 чисел
begin
writeln('Введи 4 числа');
readln(n1,n2,n3,n4);
if (n1*n2*n3*n4)>0 then writeln(n1*3,' ',n2*3,' ',n3*3,' ',n4*4)
else if (n1+n3)<0 then writeln(n1,' ',n3,' их сумма равна ',n1+n3)
else if ((n1*n2*n3*n4)>0 and (n1+n3)<0) then writeln(n1,' ',n2,' ',n3,' ',n4)
else writeln((n1+n2+n3+n4)div 2);
end.