Question

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

Answer 1

Первая:
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.