Ответ: var a.x:integer;write(введите ваше число);readln(x)if(x>0)then begina:=x+5;writeln(‘Увеличенное число =’,а );endelse writeln(‘Число x =’,x)end.