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

Question

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

Answer 1

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  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= 27
n= 39
m=39, n=39

m= -20
n= -20
m=0, n=0