Даны 2 переменные целого типа A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения А и B.
Program if_8-
Var a,b:integer-
Begin
Writeln(‘Введите число’)-
Readln(a)-
Writeln(‘Введите число’)-
Readln(b)-
If a<->-b then
begin
a:=a+b-
b:=a-
end
else
begin
a:=0-
b:=0-
end-
Writeln(‘a=’,a)-
Writeln(‘b=’,b)-
Readln-
End.