6 и 12 вариант
Паскаль
Заранее

готово. паскаль

Объяснение:

program variant6;

var x, y: real;

begin

 Write('Введите значение X >> ');

 ReadLn(x);

 if x < -1 then

    y := 1 + 2*x + 4*sqr(x)

 else if x > 1 then

    y := 1/x

 else  y := sin(x);

 WriteLn('Y(',x,')=', y);

end.

program variant12;

var x, y: real;

begin

 Write('Введите значение X >> ');

 ReadLn(x);

 if x < -4 then

    y := 2*sqr(x) - 7*x + 3

 else if x > 5 then

    y := abs(x - 18)

 else  y := sqr(x)*x + 2*x;

 WriteLn('Y(',x,')=', y);

end.