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 623 times, submitted by Guest.