Дано три переменные а, в, с. Если их значения упорядочены по возрастанию то удвоить их если нет то упорядочить по возрастанию и вывести значения?

program zz1;

var a, b, c, sr, max, min:integer; / /задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (c);

if (a < b) and (a < c) then begin a:=a * 2; b:=b * 2; c:=c * 2; write (a, ' ', b, ' ', c); end

else

begin

if (a < b) and (a < c) then min:=a;

if (b < a) and (b < c) then min:=b;

if (c < b) and (c < a) then min:=c;

if (a > b) and (a > c) then max:=a;

if (b > a) and (b > c) then max:=b;

if (c > b) and (c > a) then max:=c;

if ((a > b) and (a < c)) or ((a c)) then sr:=a;

if ((b > a) and (b < c)) or ((b c)) then sr:=b;

if ((c > b) and (c < a)) or ((c a)) then sr:=c;

write (min, ' ', sr, ' ', max);

end;

end.