задача в Паскале

[Sab_zero]

program abc;
var A,B,C:integer;begin
readln(A,B,C);
if (C>B)and (B>A)
then begin A:=A*2;B:=B*2;C:=C*2;
  end
 else begin A:=-A;
 B:=-B;
 C:=-C;end;
 writeln(A);
 writeln(B);
 writeln(C);
   end.