Напишите программу решения задачи. даны веществ числа a. b

. c. Определите будет ли их сумма положительной

Var a, b, c:integer; beginwriteln ('Введите значение a: ') ; readln (a) ; writeln ('Введите значение b: ') ; readln (b) ; writeln ('Введите значение c: ') ; readln (c) ; if a+b+c>0 then writeln ('Сумма чисел положительная') elsewriteln ('Сумма чисел отрицательная') ; end.