Cho biết a, b bằng bao nhiêu?

Cho biết a,b bằng bao nhiêu? 
a:=1; b:=5 
if a>b then begin a:=a+1 
b:=b+a; end; 
a:=a*b; 
writeln('a=',a,'b=',b);