Даны целые числа m и n если числа не равны,то заменить каждое из них одним и тем же...

Question

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

Answer 1

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

Answer 2

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