viết chương trình để tìm điểm đối xứng của điểm(x,y) qua gốc tọa độ

Uses crt;
Var x,y:longint;
Function dxtd(x,y:longint):string;
begin
 If (x=0)or(y=0) then dxtd:='(0;0)’ else 
 begin writeln(‘(‘,x*-1,’;’,y*-1,’)’); dxtd:=”; end;
end;
begin
 Clrscr;
 Readln(x,y);
 Write(dxtd(x,y));
readln
end.