Помогите пожалуйста Найти значения переменных после выполнения фрагментов программ

Помогите пожалуйста
Определить значения переменных после исполненья фрагментов программ
a:=53
b:=14
ifalt;=b then x:=a+belse x:=2*a-4*4.

У:=о
for x:= 1 to 9 do begin
y:=y+1
Writeln ('y=',y)
End.

a:=5.
c:=3
c:=7+a*c
a:=c\2*a

Образцы на язык Паскаль
А) x1 +x2 + y1дробьу2+x1
В) b в квадрате -4ас дробь 2а+b