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

Question

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

Answer 1

Var m,n:integer;
begin
  readln(a,b);
  if a<>b then begin a:=5; b:=5; end
    else begin a:=0; b:=0; end;
  writeln(a:3,b:3);
 end.