Решить задачу(после запятых пишется "если")
begin
var x := ReadReal('x=');
var y := x < 1 ? 2 * x + 1 : 3 * x - 1;
y.Print
end.
Я так понимаю, тебе нужна программка, вычисляющая y по x (потому что больше тут решать нечего). Держи:
П0 1 - x<0 11 ИП0 2 * 1 + С/П ИП0 3 * 1 - С/П</p>