Ответ: спасибо большое)))

Ответ: var a,b,c,d:real;beginwrite(‘a, b, c, d: ‘);readln(a,b,c,d);if a+b>=c+d then writeln(‘Сумма = ‘,a+b+c+d,’ Произведение = ‘,a*b*c*d) else begin      writeln(‘Среднее арифметическое = ‘,(a+b+c+d)/4);      a:=a+3; b:=b+3; c:=c+3; d:=d+3;      writeln(‘a = ‘,a,’ b = ‘,b,’ c = ‘,c,’ d = ‘,d);      end;end.Пример:a, b, c, d: 5 2 7 3Среднее арифметическое = 4.25a = 8 b = 5 c = 10 d = 6