Question

Написать программу. Даны вещественные числа a, b, c. Выяснить, будет ли число а больше суммы чисел с и b. (pascal)

Answer 1

var

 a,b,c:real;

begin

 write('Enter(a b c): ');

 readln(a,b,c);

 if a> c+b then

   writeln('A>B+C')

     else writeln('A<B+C');

end.