это воторая часть помогите пожалуйста

Задание 6

1. var
2.  x, v, k: integer;
3. begin
4.  Readln(x);
5.  v := 8 - 2 * x;
6.  if v lt; 12 then
7.    k := x - 4
8.  else
9.    k := 5 + x;
10.  Writeln(k);
11. end.

При x = 3 переменная k = -1

Задание 7

1. if x gt; 3 then
2.  y := x + 2;
3. if x lt; -2 then
4.  y := x * x - 4
5. else
6.  y := 6;

Задание 8

1. if (x gt; -1) and (x lt;= 6) then

Неясно, что нужно, но, допустим, если ввести 5, то условие выполнится.

Задание 9

1. var
2.  x, y: integer;
3. begin
4.  Readln(x, y);
5.  if (x lt; 0) and (y lt; 0) and (x gt; y) then
6.    x := x + 4
7.  else
8.    x := x * 4;
9. end.