Определить значение переменной y после работы следующей программы - PascalABC.NET

Формулировка задачи:

Добрый день! Передо мной поставили задачу: Определить значение переменной y после работы следующей программы

a = –6; b = 2 – 3 * a; x = 0; y = b / 4 + 1;
if ( 3 * a < b ) and (2 * a + b > y ) ) then begin x = 10; y = y + 5 end;
if ( 2 * y > b ) or ( b < x + 8 ) ) then begin x = x + 4; y = x + 2 end;

По примеру:

a = 10; b = 2* a / 5 – 14; x = 0; y = a + b – 5;
if ( a + b > –2 ) and ( b + y < 0 ) then begin x = x – y; y = x + 2 end;
if ( y < 0 ) or ( b > 6 * a ) then begin x = x + 1; y = y – 7 end;

Ход решения:

a=10 b= -10 x=0 y= -5
( a + b > –2 )= ( 10 +(-10) > –2 )=0>-2=True
( b + y < 0 ) =( -10 +(-5) < 0 ) = True
( a + b > –2 ) and ( b + y < 0 ) = True
x=0-(-5)=5 
y=5+2=7
( y < 0 )=7<0=False
( b > 6 * a )= ( -10 > 6 *10 )=-10>60=False
( y < 0 ) or ( b > 6 * a ) =False

Ответ: y = 7 Я решил так: Ход решения:

a=-6 b= 20 x = 0 y = 6
( 3*a < b ) = ( 3 *(-6) < –6 ) = -18<-6 = True
( 2*a + b > y ) = ( 2*(-6)+20>6 ) = True
( 3 * a < b ) and (2 * a + b > y ) = True
x= 10
y= 6+5 = 11
( 2*y >b ) = 22>20 = True
( b < x + 8 ) = 20<18 = False

дальше не знаю как правильно записать, хоть знаю уже ответ и сделал программу в Паскале. Пожалуйста дорешайте

Решение задачи: «Определить значение переменной y после работы следующей программы»

Листинг программы

var a,b,x,y:integer;
begin
a:=-6;
b:=2-3*a; //=2+18=20
x:=0;
y:=b div 4+1;//5+1=6
//3*(-6)<20 2*(-6)+20>6//оба условия выполняются
if (3*a<b) and (2*a+b>y)then
 begin
  x:=10; //=10
  y:=y+5 //=11
 end;
//2*11>20  20>18 первое условие выполняется
if(2*y>b) or (b<x+8) then
 begin
  x:=x+4;//=14
  y:=x+2 //=16
 end;
 write('y=',y)
 end.

Объяснение кода листинга программы

Объявлены четыре переменные: a, b, x, y типа integer.
Переменной a присвоено значение -6.
Переменной b присвоено значение 2 + 18 = 20.
Переменной x присвоено значение 0.
Переменной y присвоено значение (20 div 4) + 1 = 5 + 1 = 6.
Проверяется выполнение двух условий: 3a < b и 2a + b > y.
Если условия выполняются, то переменной x присваивается значение 10, а переменной y присваивается значение y + 5.
Проверяется выполнение двух условий: 2*y > b и b < x + 8.
Если условия выполняются, то переменной x присваивается значение x + 4, а переменной y присваивается значение x + 2.
Выводится значение переменной y.
Код завершается.