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.

Download