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

Question

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

Answer 1

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