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.
Объяснение:
