(* * * jmeno: sort3 * popis: setridi 3 cisla podle velikosti * level: 1 * zadani: Setridte sestupne 3 cisla podle velikosti * input: * Jedno zadani na radku, zadani ma tvar: *. Z: a b c * kde Z je cislo zadani, a,b,c jsou zkoumana cisla. * posledni zadani ma cislo 0. * * output: * Pro kazde zadani vytiskne radek ve tvaru: *. Z: max medium min * * soubory: * sort3.pas, sort3.out, sort3.in * * au: vitas@popelka.ms.mff.cuni.cz * cp: gpl * *) var { cislo zadani } Z: Integer; { dvojtecka } dt: Char; a, b, c: Integer; begin repeat read(Z, dt, dt); read(a, b, c); write(Z, ': '); if a > b then if a > c then if b > c then writeln(a, ' ', b, ' ', c) else writeln(a, ' ', c, ' ', b) else { c >= a } writeln(c, ' ', a, ' ', b) else { b >= a } if a > c then writeln(b, ' ', a, ' ', c) else { c >= a } if b > c then writeln(b, ' ', c, ' ', a) else writeln(c, ' ', b, ' ', a) until Z = 0; end.