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

[mastar]

Определить значение переменной 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;

Я вот так сделал:

const a=-6;
var x:integer;b,y:real;
begin
x:=0;
b:=2-3*a;
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;
writeln(y,'y=', y:4:3);
readln;
end

Ответ y=16 правильный, Но нужно написать решение как в данном примере, а я чего не разберусь
помогите пожалуйста

Пример оформления работы

Определить значение переменной y после работы следующей программы
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

[Tirendus]

ты же сам написал решение своей задачи, от тебя хотят пошаговой реализации, чтобы ты расписал код архидотошно

var
i, j: integer;
begin
i := 5;

for j:=0 to 10 do
    if j = i then break;
end;

ход решения:

j = 0; j <> i
j = 1; j <> i
j = 2; j <> i
j = 3; j <> i
j = 4; j <> i
j = 5; j = i

Ответ: программа прирвется когда j станет равна 5, то есть i

[mastar]

а как сделать, чтобы записался листинг программы в текстовый файл?

[mastar]

Однако, вязкая тема.... никто не отвечает

[Chudo4258]

Сообщение от mastar

а как сделать, чтобы записался листинг программы в текстовый файл?

Открыть файл с листингом программы в каком-нибудь текстовом редакторе и скопировать текст.

Или тебе чтобы сама программа себя переписала в текстовый файл?

[mastar]

Да, чтобы программа записала ход работы в текстовый файл

[Chudo4258]

Сообщение от mastar

Да, чтобы программа записала ход работы в текстовый файл

дак вам что надо??? Что бы листинг программы (код программы) записался в файл или промежуточные вычисления?

[russian-stalker]

Можно так:

assign(output,'filename.txt');
rewrite(output);