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

Первая: varx,y: integer; beginwriteln ('Vvedite x'); readln (x); if x>0 then y: =sqr (x) else y: =x+1; writeln (y); end. Вторая varx: integer; y: real; beginwriteln ('vvedite x'); readln (x); if (x<0) and (x>=-1) then y: =12,5*2else if x<-1 then y: =x-1else y: =12*x; writeln (y); end.