даны целые числа m и n если числа не равны,то заменить каждое из них одним и тем же числом,равном большему из исходных,а если равны,то заменить числа нулями в паскале

var m,n:integer;beginwrite ('Введите m: ');readln (m);write ('Введите n: ');readln (n);if m=n thenbeginm:=0;n:=0end;if m<>n thenbeginif m>n then n:=m else m:=n;end;writeln ('m = ',m);writeln ('n = ',n);end.

var  m,n:integer;begin  Write('Введите через пробел m и n: ');  Read(m,n);  if m>n then n:=m  else    if m<n then m:=n    else begin m:=0; n:=0 end;  Writeln ('m=',m,', n=',n)end.