Информатика 9 класс 2) даны 4 числа , если сумма первых двух больше или равна сумме вторых двух, то найти сумму и произведение этих чисел, иначе найти среднее арифметическое и увеличить каждое число на 3.

Var a,b,c,d:real;
begin
write('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.25
a = 8 b = 5 c = 10 d = 6