Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а ес
Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B. 49Б
Var a,b,z:integer; begin writeln('введите A ,B через пробел'); readln(a, b); if a<>b then begin if (a>b) then begin b:=a; writeln end else begin a:=b; writeln('a= ',a,'b= ',b); end; end else begin a:=0; b:=0; writeln('a= ',a,'b= ',b); end; end.