program primer;
var a: integer;
begin
writeln('Введите a: ');
read(a);
writeln('a+1=', a+1);
writeln('a-1=', a-1);
end.
Всегда с вами,
Начинающий ютубер WanziPLAY.
