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

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.