Помогите с информатикой, пожалуйста

1 задачка.

x = 6

y = 0

2 задача.

function func(x: Integer): Integer;

begin

   if x lt;= 0 then

       func := -x

   else if (0 lt; x) and (x lt;= 2) then

       func := x

   else if (2 lt; x) and (x lt;= 4) then

       func := 4 - x

   else

       func := x - 4;

end;

var

   x, y: Integer;

begin

   readln(x);

   y := func(x);

   writeln(y);

end.

Ответ на задачку:

Сработает заключительные условие.

X = 6;

Y = 0;