program lab8txt(input, output);

var
  str: string;
  A: array[1..100] of integer;
  i, k: integer;

procedure mysearch(str: string; var k: integer);
var
  i: integer;
begin
  k := 0;
  for i := 1 to length(str)-3 do
    if (str[i] = 't') and (str[i+1] = 'h') and
       (str[i+2] = 'e') and (str[i+3] = 'n') then
      k := k + 1;
end;

begin
  i := 1;
  repeat
    readln(str);
    if str <> '' then 
    begin
    mysearch(str, A[i]);
    writeln('Кількість then у рядку', i, ': ', A[i]);
    i := i + 1;
  end;
  until str = '';
end.