1. После выполнения строки:
if aПолучим x = -21, так как по условию a = 18 и b = -15, значит a>b
2. После выполнения строки (в условии опечатка, лишняя i в этой строке):
if p then x:=32 else x:=638;
Получим x = 32, так как p = true;
3. После выполнения строки:
if not p then x:=0 else x:=1
Получим x = 1, так как p = true;
Ответ: x = 1