Source
program
while1
;
var
i
:
integer
;
begin
i
:
=
1
;
while
(
i<
10
)
do
begin
writeln
(
'i = '
,
i
)
;
i
:
=
i
+
1
;
end
;
end
.
