Помогите второе ...прошу

Question

Помогите второе ...прошу

---

Answer 1

Var a,b,c: real; Begin Writeln ('введите a,b,c'); Readln (a,b,c); If a+b=c then writeln (a,' + ',b,' = ', c) else If a+c=b then writeln (a,' + ',c,' = ',b) else If b+c=a then writeln (b,' + ',c,' = ',a) else writeln ('нет такого числа'); End.