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

program aaa;
Uses crt;
Var a,b:integer;
Begin
clrscr;
Write ('A=');
Readln (a);
Write ('B=');
Readln (b);
if a=2 then a:=0
       else a:=-a;
if b=2 then b:=0
       else b:=-b;
Writeln ('Chislo A=',a);
Writeln ('Chislo B=',b);
readln
end.