Ответ:
program Test;
var
x: integer;
begin
write ('Введите число X: ');
readln (x);
if (x > 100) or (x < -100) then
writeln ('--')
else
writeln ('++');
end.
Объяснение:
Чтобы решать такие задачки, необходимо взять листик бумаги и ручку, чтобы представить число и подставить его...