ПРОГРАММИРОВАНИЕ (паскаль) помогите срочно пожалуйстаааа даны целые числа m и n если...

Question

ПРОГРАММИРОВАНИЕ (паскаль) помогите срочно пожалуйстаааа даны целые числа m и n если числа не равны,то заменить каждое из них одним и тем же числом,равном большему из исходных,а если равны,то
заменить числа нулями

Answer 1

If m=n then begin
  m:=0;
  n:=0;
end else
  if m>n then
    n:=m
  else m:=n;