Даны целые числа а,b,c.Сменить знак каждого числа и вывести результат на экран!!!!
ПОЖАЛУЙСТА ПОМОГИТЕ

спасибоооо))))))))))))))

var a, b, c: Integer;beginreadln(a);readln(b);readln(c);if a>0 then a:= (a-(a*2)) else a:= Abs(a);if b>0 then b:= (b-(b*2)) else b:= Abs(b);if c>0 then c:= (c-(c*2)) else c:= Abs(c);writeln('a = ',a, ', b = ', b, ', c = ', c);end.