ввести 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.