Решить задачу

[tex]y=\left \{ {{2x+1, x\ \textless\ 1} \atop {3x-1, x}\geq1 } ight.[/tex]

(после запятых пишется "если")

Я так понимаю, тебе нужна программка, вычисляющая y по x (потому что больше тут решать нечего). Держи:

П0 1 - x<0 11 ИП0 2 * 1 + С/П ИП0 3 * 1 - С/П

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var x := ReadReal('x=');

 var y := x < 1 ? 2 * x + 1 : 3 * x - 1;

 y.Print

end.