program ideone;
const
  text: array(.1..5.) of char = ('H', 'e', 'l', 'l', 'o');
var
  i: Byte;
begin
  for i := 1 to 5 do
    WriteLn(text(.i.))
end.