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.
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.