Вопрос Помогите составить алгоритм в виде программы Паскаль

[zhilkinson]

//otvet.imgsmail.ru/download/109981323_f8983c95552862b7fc76eb07391132ab_800.jpg

 

[GzUz]

readln(x); if x<0 then y:=sqr(x) else if x=0 then y:=x-1 else y:=2*x; writeln;