if a>b then
begin
a:=b-a;
b:=a+2;
end
else a:=b-a;
vì a được gán bằng 15,b được gán bằng 8
=> a:=b-a => a = -7
=> b:=a+2 => b=-5
2/ đoạn chương trình khi chạy cho kết quảgì
A:= 0;
if a>0 then a:=1;
Wrireln(a);
Vì a được gán bằng 0 => a không >0 => khi chạy xong sẽ in ra kết quả a=0