Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной максимальное из этих значений, а если равны, то присвоить переменным нулевые значения.

Program qq;

var  a,b,max:integer;

begin  

writeln('Введите а и б');  

readln(a,b);

if a=b then

begin  

a:=0;

b:=0;

end

else if  a>b

then max:=a  else max:=b;

begin a:=max;

b:=max;

end;

writeln(a:4,b:4);

end.