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

Question

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

Kirill12345qwert · Answer

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....