Даны действительные числа A,B,C. Составьте программу для вычесления max (A+B,C)-min (A+C,B).

Вообще-то, в ПаскальАВС функции минимум и максимум уже определены, так что можно писать программу, начиная со строки var. Но в более ранних версиях Паскаля этих функций нет.

Спасибо за ответ

Для "спасибо" тут есть кнопочка. Голубая.

// PascalABC.Netfunction max(a,b:real):real;begin  if a>b then max:=a else max:=bend;function min(a,b:real):real;begin  if a<b then min:=a else min:=bend;var  a,b,c:real;begin  Write('Введите три числа через пробел: '); Read(a,b,c);  Writeln('Результат: ',max(a+b,c)-min(a+c,b))end.Тестовое решение:Введите три числа через пробел: 5 -2 3.8Результат: 5.8