Решите задачку паскаль Дано 2 целых числа. Если они не равны, то заменить каждое из них...

Question

Решите задачку паскаль

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

Answer 1

var

  a, b:integer;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  if a <> b then

   if a > b then

      b := a

    else

      a := b

  else

  begin

    a := 0;

    b := 0;

  end;

  writeln('a = ', a);

  writeln('b = ', b);

  readln;

end.