Задано x.
Вычислить y:y={|x|+5 если х<-1
{ х+1, если х≥-1

program zadacha;varx,y: real;beginwriteln('vvedite x');readln(x);if x<-1 then y:=abs(x)+5;if x>=-1 then y:=x+1;writeln(y);end.