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

var m,n:integer;beginreadln(m,n);if m<>n thenbeginif m>n thenn:=melsem:=n;endelsebeginm:=0;n:=0;end;writeln(m,'  ',n);end.