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

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