введите 2 числа если их сумма равна 0 то на экране появляется yes иначе сумма уменьшается на 100(паскаль)

var a,b,sum:integer;beginwriteln('Введите два числа');readln(a,b);sum:=a+b;if sum=0 then writeln('Yes')else sum:=sum-100;writeln(sum);end.