Составить алгоритм решения задачи: расположить три числа 32,17,24 в порядке возрастания:

program zz1;

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

begin

write(\' введите первое число \');  // вводим первое число

read(a);  

write(\' введите второе число \');  // вводим второе число

read(b);

write(\' введите третье число \');  // вводим третье число

read(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) 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))or((a>b)and(a<c)) then sred:=a;

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

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

writeln(\' числа в порядке возрастания = \', min, \' \', sred, \' \', max);  // выводим ответ

end.