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

Program 123;
uses crt;
var
a,b,c,d,e,p: integer;
Begin
clrscr;
Writeln('Введите  А,Б,С:');
readln (a, b, c);
if (a<b) and (b<c) or (a>b) and (b>c)
then
begin
a:=2*a;  b:=2*b;  c:=2*c;
writeln(a,'  ',b,'  ',c);
end
else
begin
d:=(-1)*a;  e:=(-1)*b;   p:=(-1)*c;
writeln(d,'  ',e,'  ',p);
readln;
end;
End.