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

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016begin  var m:=ReadInteger('m=');  var n:=ReadInteger('n=');  if m<>n then m:=max(m,n) else m:=0;  n:=m;  WritelnFormat('m={0}, n={1}',m,n)end.Тестовое решение:m= 27n= 39m=39, n=39m= -20n= -20m=0, n=0