Программа перевода положительного числа в отрицательное, и на оборот
Var
a:integer;
Begin
Readln(a) ;
If a<0 then
Write(a*-1) end;
If a>0 then
End.
