program ideaone; var a: char; begin for a := 'z' downto 'A' do begin writeln('value of a: ', a); end; end.
Standard input is empty
value of a: z value of a: y value of a: x value of a: w value of a: v value of a: u value of a: t value of a: s value of a: r value of a: q value of a: p value of a: o value of a: n value of a: m value of a: l value of a: k value of a: j value of a: i value of a: h value of a: g value of a: f value of a: e value of a: d value of a: c value of a: b value of a: a value of a: ` value of a: _ value of a: ^ value of a: ] value of a: \ value of a: [ value of a: Z value of a: Y value of a: X value of a: W value of a: V value of a: U value of a: T value of a: S value of a: R value of a: Q value of a: P value of a: O value of a: N value of a: M value of a: L value of a: K value of a: J value of a: I value of a: H value of a: G value of a: F value of a: E value of a: D value of a: C value of a: B value of a: A