program FizzBuzz;
var
S: String;
i, R, C: Integer;
begin
for i := 1 to 100 do
begin
Str(i, S);
S := S + Copy('Fizz', i mod 3 * 9, 4) + Copy('Buzz', i mod 5 * 9, 4);
Val(S, R, C);
Writeln(Copy(S, C, 8));
end;
end.
cHJvZ3JhbSBGaXp6QnV6ejsKdmFyCiAgUzogU3RyaW5nOwogIGksIFIsIEM6IEludGVnZXI7CmJlZ2luCiAgZm9yIGkgOj0gMSB0byAxMDAgZG8KICBiZWdpbgogICAgU3RyKGksIFMpOwogICAgUyA6PSBTICsgQ29weSgnRml6eicsIGkgbW9kIDMgKiA5LCA0KSArIENvcHkoJ0J1enonLCBpIG1vZCA1ICogOSwgNCk7CiAgICBWYWwoUywgUiwgQyk7CiAgICBXcml0ZWxuKENvcHkoUywgQywgOCkpOwogIGVuZDsKZW5kLg==