Question

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

Answer 1

Var
a:integer;
begin
readln(a);
if (a<100) then
a:=a+1
else 
a:=a-1;
writeln(a);
end.