Ввести 2 числа.заменить первое число нулем если оно равно второму и поменять оба числа на противоположные(с обратным знаком) в противном случае

Var a,b: integer;
begin
  writeln ('Введите два числа');
  read(a,b);
  if a=b then a:=0
  else
     begin
         a:=-1*a; b:=-1*b;
     end;
  writeln(a,' ',b);
end.