Составить блок-схему и программу,  вычисляющую   р=х2+10, если х<0. Pascal ​

1. Вариант Pascale

var y, x : integer;

begin

write('введите x:');

read(x);

y:=x*x*x;

write (y);

end.

2-ой вариант

var  

x,y:integer;

begin

 writeln('введите x = ');

 readln(x);

 if x>=0 then  

 y:=4*x+10

 else

 y:=8+x ;

 writeln(y)

end.

Объяснение:

Далее сам поймешь .