Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное.
нужно решение и блок схема.

var a,b,c:real;

Begin

  read(a,b,c);

  if (a>b) and (b>c) then begin

    a:=a*2;

    b:=b*2;

    c:=c*2;

  end

  else begin

    a:=-a;

    b:=-b;

    c:=-c;

  end;

  writeln(a,b,c);

End.