program
ForStatement
;
var
i
:
integer
;
begin
for
i
:=
0
to
10
do
begin
writeln
(
'hey: '
,
i
);
end
;
end
.