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

VarA,B,C,M:real;BeginWrite('A = ');ReadLn(A);Write('B = ');ReadLn(B);Write('C = ');ReadLn(C);if A+B > C then M:=A+Belse M:=C;if A+C > B then WriteLn('max(A+B,C)-min(A+C,B) = ',M-B)else WriteLn('max(A+B,C)-min(A+C,B) = ',M-A+C)End.