Вычислить 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<0) and (x>=-1) then
 y:=12.5*2
else 
 if x<-1 then
 y:=x-1
else
 y:=12*x;
writeln(y);
end.