Source
program
ideone
;
var
i
:
integer
;
begin
for
i
:
=
10
downto
1
do
writeln
(
'i = '
,
i
)
;
end
.
