viewing paste Unknown #15222 | Text

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
var
a,b,c:Integer;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
readln(a,b,c);
if a>b then
        begin
                if a>c then
                        begin
                                if b>c then writeln(a,' ',b,' ',c) else writeln(a,' ',c,' ',b)
                        end
                else writeln(c,' ',a,' ',b)
        end
else
        begin
                if b>c then
                        begin
                                if a>c then writeln(b,' ',a,' ',c) else writeln(b,' ',c,' ',a)
                        end
                else writeln(c,' ',b,' ',a)
        end;
 
 
 
end.
Viewed 337 times, submitted by unknown.