why Tle?

var a,b:shortint;
begin
readln(a,b);
if a>0 do for a:=a downto 1 do inc(b)
else for a:=a to -1 do dec(b);
writeln(b);
end.

Please help me ! I can't get sleep until accepted code like one.

How about a=0? ;)