POTATO - Ăn khoai
Tác giả: ladpro98
Ngôn ngữ: Pascal
const f:array[0..4] of string = ('Hanako','Taro','Hanako','Taro','Taro');
var n:longint;
s:string;
inp:text;
begin
assign(inp,'');reset(inp);
while not eof(inp) do begin
readln(inp,s);
if s='[END]' then exit;
readln(inp,n);readln(inp);
n:=n mod 5;
writeln(f[n]);
end;
end.