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