Даны три числа . найти большее из них и изменить его знак на противоположный

var    a,b,c,max: integer; begin   write ('введите а,b,c через пробел: ');   readln (a,b,c);   if a>b      then       if a>c          then begin max:=a; a:=-a end         else begin max:=c; c:=-c end     else       if b>c          then begin max:=b; b:=-b end         else begin max:=c; c:=-c end;         writeln;   writeln ('max = ',max);   writeln ('a = ',a,', b = ',b,', c = ',c); end. --------------------------------------------- Пример: введите а,b,c через пробел: -5 -2 -4 max = -2 a = -5, b = 2, c = -4