(* * * jmeno: rev10 * popis: vypise 10 cisel v obracenem poradi * level: 0 * * zadani: * Nactete deset cisel a vytisknete je v opacnem poradi. * * input: * Jedno zadani na radku, zadani ma tvar: *. Z: [10 prirozenych cisel] * kde Z je cislo zadani, posledni zadani ma cislo 0. * * output: *. Z: [10 cisel v opacnem poradi, oddelene mezerou] * pozn: za poslednim neni mezera * * soubory: * rev10.pas, rev10.out, rev10.in * * au: vitas@popelka.ms.mff.cuni.cz * cp: gpl * *) var { cislo zadani } Z: Integer; { dvojtecka } dt: Char; i: Integer; a: Array [1..10] of Integer; begin repeat read(Z, dt, dt); for i := 1 to 10 do read(a[i]); write(Z, ':'); for i := 10 downto 1 do write(' ', a[i]); writeln; until Z = 0; end.