Составить программу, которая в ответ на запрос о введении числа прибавляет к нему 1, если оно меньше 100 и вычитает 1, в противном случае.
Var a: integer; begin readln(a); if a<100 then inc(a) else dec(a);<br>write(a); end.
Огромное спасибо!!!