Постройте блок схему: y=x^2, если x< 0 x-1, если x=0 2*x, если x> 0

1. Напишем полную программу для программы Pascal:

var x: Integer;
begin
writeln('Введите x');
readln(x);
if x<0 then x:=x*x;
if x=0 then x:=x-1;
if x>0 then x:=2*x;
writeln(x);
end.

2. По программе составим блок-схему. (см. картинку).