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