Даны действительные числа а, b, с. Удвоить эти числа, если а ≥ b ≥ с, и заменить их абсолютными значениями, если это не так.

Var a,b,c:real;
Begin
write(Введите a,b,c: );readln(a,b,c);
if (a>=b)and(b>=c) then
Begin
a:=a*2;
b:=b*2;
c:=c*2;
End
else
Begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
End;
writeln(a = ,a:2:2, b = ,b:2:2, c = ,c:2:2);
readln;
End.