program forloopA; var i : integer; { looping variable } begin for i := 1 to 10 do writeln('Hi'); end.