CHAO PASCAL

var i,n: longint;
begin
    assign(input,'chao.inp');reset(input);
    assign(output,'chao.out');rewrite(output);
    read(n);
    i:=1;
    while i <= n do
    begin
           writeln('Chao ban!');
           i:=i+1;
    end;
end.