Question

Составить программу, которая в ответ на запрос о введении числа прибавляет к нему 1, если оно меньше 100 и вычитает 1, в противном случае.

Answer 1

Var
a: integer;

begin
readln(a);
if a<100 then inc(a) else dec(a);
write(a);
end.