Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты.
Если произведение этих чисел положительно, то выведите утроенное значение каждого числа.
Если сумма первого и третьего чисел отрицательна, то выведите эти два числа и их сумму.
Если выполняются одновременно два перечисленных выше условия, то выведите четыре числа без изменения.
Иначе,выведите сумму этих четырех чисел, уменьшенную в два раза.
Составьте соответствующие отладочные примеры и проверьте работу каждой программы.

Var a,b,c,d,a1,b1,c1,d1:real;
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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.