program strcat;


var NUM, code, i: integer;
    str : string;
begin
  NUM :=1;
  if ParamCount=1 then
    Val(ParamStr(1),NUM,code);

  str := '';
  For i := 1 To NUM Do
     str := str + 'hello'#10;
  WriteLn(Length(str));
end.