Написание разветвляющихся программ на языке Pascal.
Задание №1:Если а>b и b>c тогда а = max+3.
Задание №2:Вывести на экран среднее арифметическое максимального и минимального из 3 чисел.

Спасибо!

Пожалуйста

Жаль

А если отдельным вопросом, так можно?

Да.

Спасибо, сейчас задам вопрос

Поможете ?

1) Var a,b,c,max: Integer;Beginwriteln('Введите a,b,c,max');readln(a,b,c,max);if (a>b) and (a>c) then a:=max+3;writeln(a);End.2) Var a,b,c,max,min: Integer;Beginwriteln('Введите 1,2,3 число');readln(a,b,c);max:=a;if max<b then max:=b;if max<c then max:=c;min:=a;if min>b then min:=b;if min>c then min:=c;writeln('Среднее: ',(max+min)/2);End.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!** 1 **begin  var (a,b,c):=ReadReal3('ВВедите a, b и c:');  if (a>b) and (b>c) then a+=3;  Print(a,b,c);end.** 2 **begin  var (a,b,c):=ReadReal3('Введите a, b и c:');  Writeln((Max(Max(a,b),c)+Min(Min(a,b),c))/2)end.ПримерВведите a, b и c: 18 -6 11.56