Найти наименьшее, среднее, наибольшее из 3-ех чисел вводимых с клавиатуры, Pascal

var a,b,c,max,min,sred:integer;

begin

read(a,b,c);

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

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

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

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

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

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

Write(max,' ',sred,' ',min);

end.

Объяснение: