Найти сумму двух цифр заданного двузначного числа в pascal

только ошибка s больше или равно 100 а у вас минус 100

в пятой строке

Да, верно, поторопился

var s:integer;beginwriteln ('Введите двухзначное число ');read(s);if ((s<10) and (s>-10)) or ((s>=-100) and (s<=-100))then writeln ('Число неверно')else begins:=(s div 10)+(s mod 10);writeln(s);end;end.