Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. если произведение этих чисел положительно, то выведите утроенное значение каждого числа. если сумма первого и третьего чисел отрицательна, то выведите эти два числа и их сумму. если выполняются одновременно два перечисленных выше условия, то выведите четыре числа без изменения. иначе,выведите сумму этих четырех чисел, уменьшенную в два раза. составьте соответствующие отладочные примеры и проверьте работу каждой программы.
Begin
Write('Введите 4числа a,b,c,d: '); readln(a,b,c,d);
if (a*b*c*d > 0) then begin
a1:=a*3; b1:=b*3; c1:=c*3; d1:=d*3;
writeln('a*3=',a1,' b*3=',b1,'c*3=',c1,'d*3=',d1);
end;
if (a+c < 0 ) then writeln ('a+c=',a+c);
if (a+c < 0 ) and (a*b*c*d > 0) then writeln(a,' ',b,' ',c,' ',d)
else writeln((a+b+c+d)/2);
end.