139 в десятичной системе счисления - это 212 в восьмеричной системе счисления.(переводишь так же как и в двоичную)
Положительные числа - от 1 до 7, их сумма 1+2..+7=28
отрицательные - от - 15 до -1, их произведение -(1*2*3*...*15) посчитаешь на калькуляторе
При любом а выражение равно 1
Program Perimetr;
var P, a,b,c:integer;
Begin
writeln('Введите длины сторон треугольника ');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
P:= a+b+c;
writeln('Периметр треугольника = ', P);
end.