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

Question

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

Answer 1

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.

незачто