Напишите программу нахождения суммы большего и меньшего из трех чисел

Var
A,B,C,M:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
M:=A;
if M<B then M:=B;
if M<C then M:=C;
if A>B then A:=B;
if A>C then A:=C;
Write(A,' + ',M,' = ',A+M)
End.