Помогите с составлением программы на паскаль

Question

Помогите с составлением программы на паскаль

Никита Забайкин Ученик (162), открыт 3 дня назад

Вычислить на компьютере значение функции с помощью условного оператора If_Then_Else. Осуществите вывод исходных данных и результатов расчетов.
{bx-|bx|
Q={1
{bx+1
Bx<1
Bx=1
Bx>2
B=1,5

Answer 1

var x, y: integer;

begin
write('x = ');
readln(x);
if x > 0 then y := x - 2
else if x = 0 then y := 0
else y := abs(x);
writeln('y = ', y);
end.

Answer 2

Алекс Куха Высший разум (461578) 3 дня назад

B:=1.5*x;
if B<1 then y:=B-abs(B);
if B=1 then y:=1;
if B>2 then y:=B+1;

Answer 3

B:=1.5*x;
if B<1 then y:=B-abs(B);
if B=1 then y:=1;
if B>2 then y:=B+1;