Вычислить Y в зависимости от x, введенного с клавиатуры Y = (х2, если х>0

х+1, если х<=0

2 задача - вычислить Y в зависимости от x, введенного с клавиатуры (12,5*2, если - 1<=х<0

х-1, если х<-1

12 х, если х>0

Первая:

var

x, y:integer;

begin

writeln ('Vvedite x') ;

readln (x) ;

if x>0 then

y:=sqr (x)

else

y:=x+1;

writeln (y) ;

end.

Вторая

var

x:integer;

y:real;

begin

writeln ('vvedite x') ;

readln (x) ;

if (x=-1) then

y:=12.5*2

else

if x<-1 then

y:=x-1

else

y:=12*x;

writeln (y) ;

end.