fork download
  1. program ideaone;
  2. var
  3. a: char;
  4. begin
  5. for a := 'z' downto 'A' do
  6. begin
  7. writeln('value of a: ', a);
  8. end;
  9. end.
Success #stdin #stdout 0.01s 5320KB
stdin
Standard input is empty
stdout
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